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FOREWORD 


This User's Manual covers the work performed in the development of 
ISPAN (Interactive Stiffened Panel ANalysis) Modules under Phase I 
Evaluation and Initial Development, Task 2 Structural Response and 
Failure Analysis, of NASA Contract NAS1-18888, entitled "Advanced 
Composite Structural Concepts and Materials Technology for Primary 
Aircraft Structures", between May 1989 to May 1992. In this 
respect, this User's Manual compliments the final technical report 
of the Task 2 - Structural Response and Failure Analysis. This 
contract is administered under the management direction of Dr. John 
C. Davis and under the technical direction of Dr. Randall c. Davis 
NASA/SPO, NASA Langley Research Center, Hampton, Virginia. 


Lockheed Aeronautical Systems Company (LASC) is the prime 
contractor. Mr. Anthony C. Jackson is the LASC Program Manager, 
directing all the contract activities. Mr. Bharat M. Shah of 
Advanced Structures and Materials Division is the technical thrust 
leader in the performance of this task. 


Key LASC (or as indicated) contributors to the ISPAN Modules 
Development are listed below: 


Wayne Brown (LMSC) 

Tony Wei (LMSC) 

Edward Ingram 
Jui-Ten-Haung 
John Hairr 
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SUMMARY 


The basic objective of the development of the ISPAN (Interactive 
Stiffened Panel ANalysis) Modules is to bring finite element analysis 
into the design of composite structures without the requirement for 
the user to know much about the techniques and procedures needed to 
actually perform a finite element analysis from scratch. The programs 
presented for the analysis of a variety of structural composite panels 
require the user to simply input basic dimensions of the panel and 
layup information for the laminates, with each quantity being prompted 
for. It also markedly simplifies parameter studies, as all analysis 
can be conducted using the same generic model. Parameter changes from 
run-to-run can be trivial with the file editing or model revision 
capabilities . 


Section 1.0 


Describes the applicable run initialization and input format for all 
the ISPAN Modules, including user's information in conducting 
bifurcation buckling and non-linear collapse analysis. 

Section 2 . 0 through 5 . 0 


Describes the flat stiffened panel module; the curved stiffened panel 
module; the flat tubular panel module: and the geodesic curved 
stiffened panel module, respectively. Each of the above sections 
describes the capabilities and restrictions of the respective modules. 
It also describes the inputs for an example problem using screen echo 
generated during an interative session. It also presents the output 
generated, following post-processing the results. 

Section 6.0 


Describes the post processing module common to all the ISPAN modules. 
The material properties input and input data file structure is 
described in Appendices A1 and A2 , respectively. The ISPAN module 
runstream is decribed in Appendix A3 along with the source code and 
post-processing routines for each module. 
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1.0 INTRODUCTION 


The ISPAN Modules is an interactive design tool that is intended to 
provide a means of performing simple and self-contained preliminary 
analysis of aircraft primary structure using composite materials. 
The advantage of this program lies in that it gives an 
inexperienced finite element code user a direct wav of creating and 
solving a finite element model without the need tc acquire in-depth 
knowledge about the code; in the mean time it does not limit 
experienced users from doing any modification and in-depth analysis 
once the model is created. The term "generic model has been applied 
to the finite element models created by this process. 

This program combines a series of modules with the finite element 
code DIAL as its backbone. Each module can create a finite element 
model of a different type of "primary aircraft structure" ( i.e. a 
wing panel, fuselage panel, etc). Each module consists of a set of 
FORTRAN driver programs which create DIAL generic model runstream 
files. The DIAL runstreams utilize the syntactic input capability 
of DIAL which is a FORTRAN-1 ike language within the program. These 
elements of the generic model processing are transparent to the 
user. 

Users are instructed to input geometric properties, material 
properties, load information and types of analysis that the user 
desires. Subsequently, the program would utilize this information 
to generate the finite element model and perform analysis. The 
output in the form of summary tables of stress or margins of 
safety, contour plots of loads or stress and deflected shape plots 
may be used to determine the viability of the particular design. 

The scope of the analysis that can be performed by this program 
includes conventional linear stress analysis, bifurcation buckling 
analysis and nonlinear collapse analysis. 


1.1 RUN INITIALIZATION AND GENERAL INPUT FORMAT 

This program may be installed on any of several different 
interactive computers such as VAX or Silicon Graphics Personal Iris 
workstations. Each system requires a somewhat different setup that 
should be installed by the person responsible for managing this 
software. For the user a simple one word command is usually 
sufficient to start the program. 

The program begins by displaying a menu showing the various generic 
models or modules that may be run. Once a particular module is 
chosen, the program is set up to either use existing data files or 
ask for new data to be input. Number and types of input varies with 
the different modules; all data are input in interactive fashion. 

Geometric and material data is stored in files using either user 
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supplied file names or the default file names. Geometric data 
includes basic dimensions, number of plies, material and individual 
ply orientations for each layup; the material file contains moduli, 
Poisson ratios and stress/strain allowables for each material being 
used . 

Users are able to modify any existing data files before or after 
execution. A simple text editor may be used to modify the contents 
of either the geometry or material files. File formats are given in 
the Appendix. Once the data files are completed, the program links 
the data to the DIAL processors automatically and begins execution 
of each processor. This can be done interactively or as a batch 
mode run. At the completion of the execution, the user would have 
the option of either using the SCOPE processor or using pre-defined 
post-processing commands to obtain analysis results. A flow diagram 
of the run format for a typical model is presented in Figure 1.0. 


All ISPAN modules follow the same basic steps in creating and 
processing the analysis. They are: (Not necessarily in the 

sequence shown) 

1) Start ISPAN 

2) Input analysis information 

3) Input geometry and layup information 

4) Input boundary condition information 

5) Input loads information 

6) Input material properties 

7) Run model (Batch or interactive) 

8) Post-process results - make geometry plots, stress 
summaries, contour plots, etc. 

1.2 BIFURCATION BUCKLING ANALYSIS 

This option can be used to identify initial buckling modes for the 
structure. No knockdown factors are used. Knockdown factors, if any, 
need to be determined by the user and applied to the results. Sometimes 
it is benificial to use the bifurcation mode deflected shape as a 
starting point for a nonlinear collapse analysis. 


1.3 NON-LINEAR COLLAPSE ANALYSIS 

The capability to perform a non-linear collapse analysis is an advanced 
feature of DIAL which can be difficult to use even by those familiar 
with finite element analysis. Therefore, it is recommended only for 
advanced users. 

This program utilizes the ARCLENGTH method in DIAL to perform non-linear 
analysis. This method allows users to choose either LOADS or a DEGREE OF 
FREEDOM as the TARGET POINT in the computation. If LOADS is chosen to be 
the TARGET POINT type, the input value for the TARGET POINT would be the 


2 


FIGURE I. A TYPICAL GENERIC MODEL FLOW CHART 
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FIGURE 1 WING PANEL GENERIC MODEL FLOW CHART(CONT'D) 
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load factor (A multiple of the input loads) that the user wishes the 
program to reach. On the other hand, if any DEGREE OF FREEDOM is chosen, 
then the TARGET POINT would be the maximum corresponding displacement 
that the user would like the program to reach at a particular NODAL 
POINT. 

During the course of the SOLVE process, stress and displacement files at 
each intermediate load steps as well as at the TARGET POINT would be 
saved in the DIAL database. This information can be retrieved by the 
user during the post processing session. 

Since it is difficult for the user to know in advance about which part 
of the structure would buckle first (if at all), the DEGREE OF FREEDOM 
type TARGET POINT is not recommended on the first computer run for the 
problem on hand. It is also recommended for the user to run the finite 
element model through the bifurcation buckling analysis first, then use 
the mode shape obtained as the starting point for the non-linear 
analysis. This would help to save computer run time on the non-linear 
analysis. A procedure for this will be included in a future revision of 
this manual. 

Users should be cautioned that a non-linear finite element analysis, 
depending on the size of the model and the type of machine on which this 
program is used, could result in the use of substantial CPU time, even 
on a supercomputer. 

2.0 FLAT STIFFENED PANEL MODULE 

This module creates a model of a flat rectangular panel with axial 
stiffeners and lateral stiffeners or rib attachments (as shown in 
Figure 2). This model is representative of an upper or lower wing 
panel, but without curvature. As illustrated in Figure 3, there are 
eight different types of stiffener forms available. No actual 
stiffeners are used in the lateral direction but rib attachments are 
simulated with local boundary conditions input. 


2 . 1 CAPABILITIES AND RESTRICTIONS 

1) Number of axial stiff eners0<N<10 

2) Stiffeners may be unequally spaced and of different 
cross-sections and layups 

3) Number of lateral stiffeners or restraintsO<N<2 

4) Lateral rib or stiffener attachments may provide either a pinned 
or fixed type support. 

5) Boundary conditions options include for the ends either 
simply supported or fixed against rotation and constrained 
or free axial displacements and simulated infinite length. 

6) Boundary conditions options for the sides include simply 
supported, fixed rotations, or simulated infinite width. 

7) Loading may include any combination of axial, lateral and 
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shear line loads and a lateral pressure. 

8) Maximum number of different materials = 10 

9) Maximum number of different layups = 20 

10) Maximum number of plies per layup = 100 

11) Option to perform either a linear stress analysis or buckling 
analysis. The buckling model is necessarily a more refined mesh than 
the stress model and as a consequence will require much longer run 
times . 

12) Stiffener layup may include any or all panel plies as integral to 
the stiffener. 

An example input format for this module is presented in Section 
2.2. It is accompanied by diagrams which show the required input 
dimensions and parameters (Figures 2 and 3) . A plot of the model 
generated for this example is shown in Figure 4. Figure 5 
illustrates a panel with an alternate type of stiffener. 

USAGE NOTES 

1) The skin panel at the base of the stiffener is considered part 
of the stiffener base. The laminate input should include 
contributions from both sources. 

2) Panel sub-divisions define the model element density which is 
program controlled unless requested by the user . 

3) Definition of full 3-D material properties is not required since 
only shell elements are used. The material property input is described 
in Appendix A.l. 


2.2 FLAT STIFFENED PANEL MODULE - EXAMPLE INPUT 

Following input prompts would be shown on the terminal, if there 
are no pre-assigned data files when the program is called. 
Numbers after the prompts- are the actual inputs for the model 
shown in Figure 4. User input is shown in bold type. 


$ 0DIALAMATIC 


Advanced Composites Structural Concept and Materials 
Technologies 

Automated DIAL Finite Element Analysis 

DIALAMATIC 
VAX VERSION 1.2 
JUNE 1991 


8 


FIGURE 4. BLADE STIFFENED FLAT PANEL - EXAMPLE PLOT 
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The following analysis modules are available at this time 


MODULE NO. GENERIC MODEL 

lFlat rectangular stiffened panel (Wing panel) 
2Curved Stiffened Panel 
3 Flat rectangular tubular panel 
4Geodesic Panel 


Select a module number >>: 1 


Generic Model for Flat Stringer Stiffened Panel 


MODULE 1 
VAX VERSION 1.2 
JUNE 1991 


BASIC ANALYSIS INFORMATION: 


Does a DIAL database file exist? (Y/N) Default is FIL002. 

>> : n 

Would you like to give the data base file a unique name 9 (Y/N) 
»: f 1 a t 

Does a geometry file already exist for this analysis? (Y/N) 

» : n 

Input a name for the geometry file. »: gl 

Does a material properties file exist? (Y/N) »: n 

Input a name for the material roperties file. >>: m 1 


*************************** 


* + ** + + * + + + + * + + ** + + + + + + + + + + + + + +. + . 


*Advanced Composite Structural Program by LMSC 
*.Flat Stiffener Panel: Revision 1.2, 6/28/91 


Input Panel Width and Length >> ( 10.000 10.000)> 10 10 
Input No. of Stiffeners and Ribs »( 2 1)> 2 2 
Does the user want to specify Panel Sub-divisions? (Y/N) 
Enter » n 

Sub-Grid Between Stiffeners are 2. 

Sub-Grid Between Ribs are 3 . 

Stiffeners equally spaced (Y/N)? »(Y)> y 
Ribs equally spaced (Y/N)? »(Y)> y 
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Boundary Condition Definition 


Are there ribs at Ends ? (Y/N)>>{Y)> n 

Ribs on : { 1 ) Skin (2)STIF (3) Both ?»(1)> 3 

Choose a B.C. Type no. at Ribs: 

(1) Simply Supported; (2) S.S. and Rotation; ?»(1)> 2 
Choose a B.C. type no. at Ends: 

(1) Part of a Larger Panel (2) Free (3) Simply Supported 

(4) Semi -Clamped- 1 (axial & lateral free) 

(5) Semi -Clamped- 2 (axial only free) 

(6) Fully Clamped (all DOF fixed) »(1)> 1 

Choose a B.C. type no. at Sides: 

(1) Part of a Larger Panel 

(2) Free 

(3) Simply Supported 

(4) Semi -Clamped- 1 (axial & lateral free) 

(5) Semi-Clamped-2 (axial only free) 

(6) Fully Clamped (all DOF fixed) »(2)> 1 

Loading Condition Definition 

Choose input loads type (Total=l , Line=2 ) ?» (2 ) > 1 

following total load unit: lb 

Input axial load >>(1 000. 0)> 1 000 
Input lateral load >> ( 0.0) > 0 
Input shear load along ends >> ( 0.0) > 0 
Input lateral pressure in psi » 0.00)> 0 

Type of Analysis 

Choose ONE of the following type of analysis» 

1> Linear Analysis. 

2> Bifurcation Buckling Analysis. 

3> Post-Buckling Analysis. 

Enter >> 3 

Type of Target Point ?>> 0 
0> Load Factor. 
l-6> Displacement DOF. 

Enter» Target Point Value = 5.7 

Input No. of Materials »(1)> 1 

Input Matl# 1 Elastic & Shear Modulus, Poison #, AML +/- 
Allowables 

El , E2 >>( 0.30E+08 0.30E+08)> 8.9e6 8 . 9e6 

G12 , G23 , G31 »( 0.1 2E+08 0.1 2E+08 0.1 2E+08 ) ~0 . 89e6 

0 . 3e6 0 . 3e6 

VI 2 »( 0 . 3 043 ) > 0.095 

Do you want to input AML Failure Parameters (Y/N) ? y 

+ Allow. »(-60.0 0.001 0.0 0.002 60.0 0.003)> -60 0.011 0 
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0.022 60 0.011 

- Allow. >>( -60 . 0 -0.002 

- 0.011 0 - 0.022 60 - 0.011 


0.0 -0.003 60.0 -0 . 004 ) > -60 


Input No. of plies for the basic panel >> ( 2)> 8 
Input Matl#, Thickness, Angle 

Are the information the same for ALL plies (Y/N) 9 v 
Ply# 1»( 1 0.1000 0 . 00 ) > 1 0.0142 45 


Stiffener Type: 1) Blade, 2)Close Hat, 3)I-shape, 4)J-shape, 
5 ) Angle, 6)Zee, 7)Bead, 8 ) Open Hat . 

Select axial stiffener type »(1)> l 

Input XH , XB , XC »( 0.400 0.500 0.350)> 0.4 0.5 0 2 


Input No. of plies for stiffener ELEM #1»( 2)> 8 
Input Matl#, Thickness, Angle 

Are the information the save for ALL plies (Y/N)’ v 
Ply# l»('l 0.1 000 0 . 00 ) > 1 0.0142 -45 


Input No. of plies for stiffener ELEM #2»( 2)> 4 
Input Matl#, Thickness, Angle 


Are the information the save for ALL plies 
Ply# 1»(1 0.1 000 0 . 00 ) > 1 0.0142 90 


(Y/N) ? y 




WWWTMMMlr* 


* Advanced Composite Structural Program by LMSC 1 
*Flat Stiffener Panel: Revision 1.2, 6/28/91* 

'*****************-k***-k***1r***-k*-k-k i , iric i riritieiciririririri!it 


m,n) »> MAIN MENU <<< (general MESH data) 

0,0) Geometry & General Data 

l^'J^ 0 Base Panel Width and Length (AX, BY): 10.000 

0,2) No. of Stiffeners and Ribs (M,N): 2 2 

0,3) No. of GRID for Stiffeners and Ribs (Ml, NI) • 2 3 

0,4) Stiffener locations (A): 3.333 6.667 

0,5) Rib locations (B) : 3.333 6.667 


»> OTHER MENUS <<< (MATL, BASE Ply, STIF Ply, BC & LC) 

1.0) Total No. of Materials (NMAT) : 1 ’ ^ / 

2.0) No. of Plies for The Base Panel (NLAY) : 8 

3.0) Axial stiffener type No.(MTYP): 1 
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Blade=l, Close Hat=2, "I" =3, " J" =4 , Angle=5, ■ ZH=6 , Bead=7 , 

Open 

Hat = 8 . 

XH= 0.400 XB= 0.500 XC= 0.200 

4,0) Boundary & Loading Conditions 
Select m, n=> - 1 : END ? 9:QUIT; m, n : UPDATE ~> 1,0 




★ ★★★★★★★it********************************* 


★ ★ ★ ★ 


♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 

************************************************* 


MATL MENU (MENUl) : 

1.0) Total No. of Materials (NMAT) : 1 

1.1) Material Number 1 
Selections l,n: modify MATL #n; 

-1: Exit; 9: Quit; m,0: other MENUS » 1,1 


★ ★ 


* ★ 


*★★**★**★ + **★**★*★**★★*************************** 
♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 
***********************★★★★★**★***★★*★★********** 


Properties for MATL No. :1 
l>>Elastic Modulus (El,E2): 0.89E+07 0.89E+07 
2 »Shear Modulus (G12 , G23 , G31) : 0.89E+06 0.30E+06 0.30E+06 
3>>Poisson Ratio (V12): 0.0950 

4>>AML + Allowables : -60 . 0 0.0110 0.0 0.0220 60.0 0.0110 
5»AML- Allowables: -60.0 -0.0110 0.0 -0.0220 60.0 -0.0110 

Modify Above Material Properties (Y/N) ? >>(N)> n 


★ ★★★I*********************************************** 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 

* * * * '********★*★**★★**★★★*★****★★★*****+****★****★★* 


MATL MENU (MENUl) : 

1.0) Total No. of Materials (NMAT): 1 

1.1) Material Number 1 
Selections l,n: modify MATL #n; 

-1: Exit; 9: Quit; m, 0 : other MENUS » 2,0 

***************★★***★**★★★**★**★**★★★★★**★**★*★★*** 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 


Base Ply MENU (MENU2) : 

2,0) No. of Plies for The Base Panel (NLAY) : 8 
Ply # Material # Thickness Angle 


1 

1 

0 . 0142 

45 . 0 

2 

1 

0 . 0142 

45 . 0 

3 

1 

0 . 0142 

45 . 0 

4 

1 

0 . 0142 

45 . 0 

5 

1 

0.0142 

45.0 

6 

1 

0 . 0142 

45.0 

7 

1 

0 .0142 

45 . 0 

8 

1 

0 .0142 

45 . 0 

Modify the no 

. of 

plies 0 the 

panel 

n Choose PLY 

NUMBER to modify 

(Y/N) ? 


(Y/N)? »<N)> 
n Selection 


=> 2,n: modify panel plies; 

-1 :End; 9; Quit; m, 0 : other MENUS » 3,0 


**************************************************** 


LMSC* 

★ ★ ★ 


♦Advanced Composite Structural Program by 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 

★ ★★★★★★★★★★★★★★★★★★★★■A 1 *************************** 


STIF MENU (MENU3) : l)Blade, 2)Close Hat, 

3)I-shape, 4)J-shape, 5) Angle, 6) Zee, 7)Bead, 

8 ) Open Hat . 

3.0) Type of Stiffener: 1 

XH= 0.400 XB= 0.500 XC= 0.200 

3.1) No. of Plies for STIF, ELEM ( 1 ) : 8 

3.2) No. of Plies for STIF , ELEM ( 2 ) : 4 
Selection => 3,n: modify panel plies; 

-l:End; 9: Quit; m, 0 : other MENUS; -1: exit. >> 3,1 


*************************************************** 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 

★ ★★★★★★★★★★■a*************************************** 


3,1 


) No. of Plies 
Ply # Material 


11 0 
2 1 0 

3 1 0 

4 1 0 

5 1 0 

6 1 0 

7 1 0 


for STIF, ELEM(l) : 8 
# Thickness Angle 
.0142 -45.0 

.0142 -45.0 

.0142 -45.0 

.0142 -45.0 

0142 -45.0 

0142 -45.0 

0142 -45.0 
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8 1 
00 No Change 


0 . 0142 


-45.0 


Modify the number of above plies (Y/N) ? »(N)> n 
Choose the PLY NUMBER you wish to change >> 0 


************************* + *★***■****************.*** 

*Advanced Composite Structural Program by LMSC* 
*Flat Stiffener Panel: Revision 1.2, 6/28/91* 
********************+*******★*******************★* 

STIF MENU (MENU3 ) : 

1 ) Blade , 2 ) Close Hat, 3)I-shape, 4)J-shape, 

5) Angle, 6) Zee, 7) Bead, 8 ) Open Hat. 

3.0) Type of Stiffener: 1 

XH= 0.400 XB= 0.500 XC= 0.200 

3.1) No. of Plies for STIF, ELEM ( 1 ) : 8 

3.2) No. of Plies for STIF, ELEM(2 ) : 4 


Selection => 3,n: modify panel plies; 

-1 : End ; 9 : Qu i t ; m, 0 : other MENUS; -1: exit. » 

4,0 


* * * * ***** ****************************************** 

*Advanced Composite Structural Program by LMSC* 
*Flat Stiffener Panel: Revision 1.2, 6/28/91* 
************************************************* 

Boundary Condition Definition 

4.1) There are NO ribs on the ends. 

4.2) Ribs on both the Skin and the Stiffener. 

4.3) Ribs are simulated using Simple Support plus 
Rotational 

Constraints . 

4.4) Ends are Part of a Larger Panel. 

4.5) Sides are Part of a Larger Panel. 

--Loading Condition Definition 

4.6) Total Loads (lbs.): 

4.7) Axial= 1000.0 

4.8) Lateral= 0.0 

4.9) Shear Along the Ends = 0.0 

4.10) Lateral Pressure (psi.)= 0.0 

Solution Technique 

4.11) Post -Buckl ing Analysis. 
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TYPE OF TARGET >LOAD FACTOR TARGET= 5.70000 

Select m,n=> -1 :Exit; 9:Quit; m,n: Other Menu or 
Update . >>- 1 


3 . 0 CURVED STIFFENED PANEL MODULE 

This module creates a model of a curved rectangular panel with 
longitudinal axial stiffeners and circumferential frame attachments (as 
shown in Figure 6) . This model is representative of a stiffened 
fuselage .shell. There are eight different types of stiffeners 
available. No actual frames are modeled in the circumferential 
direction. Frame attachments are simulated with local boundary 
conditions . 


3.1 CAPABILITIES AND RESTRICTIONS 

1) Number of axial stif feners0<N<10 

2) Stiffeners may be unequally spaced and of different 
cross-sections and layups 

3) Number of lateral stiffeners or restraintsO<N<2 

4) Lateral rib or stiffener attachments may provide either a pinned 
or fixed type support. 

5) Boundary conditions options include for the ends either 
simply supported, clamped or free. 

6) Boundary conditions options for the sides include simply 
supported, clamped or free. 

7) Loading may include any combination of axial, lateral and 
shear line loads and a lateral pressure. 

8) Maximum number of different materials = 10 

9) Maximum number of different layups = 20 

10) Maximum number of plies per layup = 100 

11) Option to perform either a linear stress analysis or buckling 
analysis. The buckling model is necessarily a more refined mesh than 
the stress model and as a consequence will require much longer run 
times . 

12) Stiffener layup may include any or all panel plies as integral to 
the stiffener. 

An example input format for this module is presented in Section 
3.2. The required input dimensions and parameters are the same as 
shown in Figures 2 and 3. A plot of the model generated for this 
example is shown in Figure 6 and Figure 7 . 


USAGE NOTES 


1) The skin panel at the base of the stiffener is considered part 
of the stiffener base. The laminate input should include 
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contributions from both sources. 

2) Panel sub-divisions define the model element density which is 
program controlled unless requested by the user. 

3) Definition of full 3-D material properties is not required since 
only shell elements are used. The material property input is described 
in Appendix A.l. 


3.2 CURVED STIFFENED PANEL MODULE - EXAMPLE INPUT 

Following input prompts would be shown on the terminal, if there 
are no pre-assigned data files when the program is called. 
Numbers after the prompts- are the actual inputs for the model 
shown in Figure 6. User input is shown in bold type. 


$ @DIALAMATIC 


Advanced Composites Structural Concept and Materials 
Technologies 

Automated DIAL Finite Element Analysis 


DIALAMATIC 
VAX VERSION 1.2 
JUNE 1991 


The following analysis modules are available at this time: 


MODULE NO. 
1 
2 

3 

4 


GENERIC MODEL 

Flat rectangular stiffened panel (Wing panel) 
Curved Stiffened Panel 
Flat rectangular tubular panel 
Geodesic Panel 


Select a module number >>: 2 


Generic Model for Curved Stiffened Panel 

MODULE 2 
VAX VERSION 1.2 
JUNE 1991 


BASIC ANALYSIS INFORMATION: 

Does a DIAL database file exist? (Y/N) Default is FIL002 . >>:N 
Would you like to give the data base file a unique name? (Y/N) »: 
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CURVED 


Does a geometry file already exist for this analysis? (Y/N) 
»: N 

Input a name for the geometry file. »: BEAD . DAT 
Does a material properties file exist? (Y/N) >>: n 
Input a name for the material roperties file. >> ml 


* Advanced Composite Structural Program by LMSC 

*Flat Stiffener Panel: Revision 1. 6/28/91 

★ ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•A- 

Input Panel Width, Length and Radius >> ( 10.000 10.000 
122. 0)> 50 . 40 . 60 . 

Input No. of Stiffeners and Ribs >> ( 2 1)> 31 

Does the user want to specify Panel Sub-divisions? (Y/N) 

Enter » Y 

Input no. of Sub-Grid between stif /Rib>> (2m2 ) > 2 6 

Stiffeners equally spaced (Y/N)? >>(Y) > y 
Ribs equally spaced (Y/N)? »(Y)> y 

Boundary Condition Definition 

Are there ribs at Ends ?(Y/N)»(Y)> n 
Ribs on : ( 1 ) Skin (2)STIF (3) Both ?»(1)> 3 

Choose a B.C. Type no. at Ribs: 

Choose a B.C. type no. at z = 0: 

(1) Simploy Supported 

(2) S. S. and Rotation 

(3) Free »(1)> 1 

Choose a B.C. type no. at z = L: 

(1) Simploy Supported 

(2) S. S. and Rotation 

(3) Free »(1)> 1 

Choose a B.C. type no. at theta = 0: 

(1) Simploy Supported 

(2) S. S. and Rotation 

(3) Free ---»(1)> 1 

Choose a B.C. type no. at theta = theta_max: 

(1) Simploy Supported 

(2) S. S. and Rotation 

(3) Free —-»(!)> 1 
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Loading Condition Definition ~ 


Choose input loads type ( Total=l , Line=2 ) ?>> ( 2 ) > 2 
following total load unit: lb 

Input axial load >>(1000.0)> -5000 
Input lateral load >> ( 0.0)> 2500. 

Input shear load along ends »( 0.‘0)> 1000. 

Input lateral pressure in psi » (0.00)> 8.3 

Type of Analysis ~ 

Choose ONE of the following type of analysis» 

1> Linear Analysis. 

2, Bifurcation Buckling Analysis. 

3> Post-Buckling Analysis. 

Enter >> 1 

Input No. of Materials »( 1)> 1 

Input Matl# 1 Elastic & Shear Modulus, Poison #, AML + /- 
Allowables 

El , E2 »( 0.30E+08 0.30E+08)> 8.9e6 8.9e6 

G12 , G2 3 , G3 1 >>{ 0.1 2E+08 0.12E+08 0.1 2E+08 ) ~0 . 89e6 
0.3e6 0 . 3e6 

V12 »( 0 . 3 043 ) > 0.095 

Do you want to input AML Failure Parameters (Y/N) ? y 

+ Allow. » (-60 .0 0.001 0.0 0.002 60.0 0.003)> -60 0.011 0 
0.022 60.0.011 

- Allow. >> (-60 . 0 -0.002 0.0 -0.003 60.0 -0.004)> 

-60-0.011 0-0.022 60 -0.011 


Input No. of plies for the basic panel »( 2)> 6 
Input Matl#, Thickness, Angle 

Are the information the same for ALL plies (Y/N) ? y 
Ply# 1»( 1 0.1000 0.00), 1 0.005 


Stiffener Type: 1) Blade, 2)Close Hat, 3) 1-shape, 4)J-shape, 
5) Angle, 6) Zee, 7) Bead, 8) Open Hat. 

Select axial stiffener type »(1)> 7 
Input XH , XB , »( 0.400 0.500)> 2.0 8.0 


Input No. of plies for stiffener ELEM #1»( 2)> 6 
Input Matl#, Thickness, Angle 

Are the information the savin for ALL plies (Y/N) ? y 
Ply# 1>, ( 1 0.1 000 0.00)> 1 0.005 45 
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Input No. of plies for stiffener ELEM #2»( 2)> 6 
Input Matl# , Thickness, Angle 


Are the information the same for ALL plies (Y/N) 9 v 
Ply# 1>, ( 1 0.1 000 0 . 00 ) > 1 0.006 45 


Input No. of plies for stiffener ELEM #3»( 2)> 6 
Input Matl#, Thickness, Angle 


Are the information the same for ALL plies 
Ply# !>,(,! 0.1000 0 . 0 0 ) > 1 0.005 45 


(Y/N) ? y 






★ ★ + 


* Advanced Composite Structural Program by LMSC 
*Flat Stiffener Panel: Revision 1.2, 6/28/91 


★ 

★ 


m,n) »> MAIN MENU «< (general MESH data) 

0,0) Geometry & General Data 

0,1) Base Panel Width, Length and Radius (AX, BY-) 50 000 

90.000 60.000 ju.uuu 

0,2) No. of Stiffeners and Ribs (M,N) : 3 1 
0,3) No. of GRID for Stiffeners and Ribs (Ml, NI): 2 6 
0,4) Stiffener locations (A): 8.333 25.000 41 667 

0,5) Rib locations (B) : 20.000 


»> OTHER MENUS <« (MATL, BASE Ply, STIF Ply, BC & LC) 

1.0) Total No. of Materials (NMAT) : 1 

2.0) No. of Plies for The Base Panel (NLAY) : 6 

3.0) Axial stiffener type No.(MTYP): 7 

S 1 f d o = 1 ' C1 ° Se Hat=2 ' 1,1 "= 3 - " J "=4, Angle=5, " ZH=6 , Bead=7 Open 
Hat = o . 

XH= 2.00 XB= 8.000 

4.0) Boundary & Loading Conditions 

Select m,n=> - 1 : END ; 9:QUIT; m, n : UPDATE ~> 1,0 








e Advanced Composite Structural Program by LMSC 
*Flat Stiffener Panel: Revision 1.2, 6/28/91* 



MATL MENU (MENU1) : 

1.0) Total No. of Materials (NMAT) : 1 

1.1) Material Number 1 
Selection=> l,n: modify MATL #n; 

-1: Exit; 9: Quit; m,0: other MENUS » 1,1 


*************************************************** 

* Advanced Composite Structural Program by LMSC* 

♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 
*************************************************** 

Properties for MATL No . : 1 

l>>Elastic Modulus (El,E2) : 0.89E+07 0.89E+07 
2»Shear Modulus (G12 , G23 , G31 ) : 0.89E+06 0.30E+06 0.30E+06 
3>>Poisson Ratio (V12): 0.0950 

4>>AML + Allowables : -60 . 0 0.0110 0.0 0.0220 60.0 0.0110 
5>>AML- Allowables : -60 . 0 -0.0110 0.0 -0.0220 60.0 -0.0110 

Modify Above Material Properties (Y/N) ? >>(N)> Y 


★ ★★★★★★★★★★★★★★★★★■A-******************************** 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 
*************************************************** 


MATL MENU (MENUl ) : 

1.0) Total No. of Materials (NMAT): 1 

1.1) Material Number 1 
Selections l,n: modify MATL #n; 

-1: Exit; 9: Quit; m, 0 : other MENUS » 2,0 


**********★★★*★*★****+***★************************* 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 
*************************************************** 


Base Ply MENU (MENU2 ) : 

2,0) No. of Plies for The Base Panel (NLAY) : 6 
Ply # Material # Thickness Angle 


1 

1 

0.005 

45.0 

2 

1 

0.005 

45.0 

3 

1 

0.005 

45.0 

4 

1 

0 . 005 

45.0 

5 

1 

0.005 

45.0 
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6 


1 


0 .005 


45.0 


Modify the no. of plies @ the panel (Y/N) ? »(N)> 

n 

Choose PLY NUMBER to modify (Y/N)? n Selection => 
2,n: modify panel plies; 

-1 : End ; 9: Quit; m, 0 : other MENUS » 3,0 


*******************************- k i riririririririritiricitiritiririeil 

*Advanced Composite Structural Program by LMSC* 
*Flat Stiffener Panel: Revision 1.2, 6/28/91* 

★ I************************************************* 

STIF MENU (MENU3 ) : 1) Blade, 2) Close Hat, 

3 ) 1-shape, 4)J-shape, 5)Angle, 6)Zee, 7)Bead, 

8 ) Open Hat . 

3.0) Type of Stiffener: 7 
XH= 2.000 XB= 8.000 

3.1) No. of Plies for STIF , ELEM ( 1 ) : 6 

3.2) No. of Plies for STIF, ELEM ( 2 ) : 6 

3.3) No. of Plies for STIF, ELEM ( 3 ) : 6 

Selection => 3,n: modify panel plies; 

- 1 : End ; 9: Quit; m, 0 : other MENUS; -1: exit. » 3,1 


******** 






******* 


‘Advanced Composite Structural Program by LMSC* 

‘Flat Stiffener Panel: Revision 1.2, 6/28/91* 
K***************************************-***** 


) No. 

of Plies 


for STIF, ELEM (1) 

Ply # 

Material 


# Thickness Angl 

1 

1 

0 

. 005 

-45 . 0 

2 

1 

0 

.005 

-45.0 

3 

1 

0 

. 005 

-45.0 

4 

1 

0 

.005 

-45.0 

5 

1 

0 

.005 

-45.0 

6 

1 

0 

.005 

-45.0 


00 No Change 

Modify the number of above plies (Y/N)? 
Choose the PLY NUMBER you wish to change 


» (N) > n 

» 0 


************************************************** 

‘Advanced Composite Structural Program by LMSC* 
‘Flat Stiffener Panel: Revision 1.2, 6/28/91* 

★ t*********************************************^^ 
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STIF MENU (MENU3) : 

1 ) Blade, 2 ) Close Hat, 3)I-shape, 4)J-shape, 
5) Angle, 6) Zee, 7) Bead, 8 ) Open Hat. 

3.0) Type of Stiffener: 7 
XH= 2.000 XB= 8.000 

3.1) No. of Plies for STIF, ELEM(l) : 6 

3.2) No. of Plies for STIF , ELEM ( 2 ) : 6 

3.3) No. of Plies for STIF, ELEM ( 3 ) : 6 


Selection = >, n : modify panel plies; 

-1 :End; 9:Quit; m, 0 : other MENUS; -1 


****************★***★★***★*★*★★★*★★★*★*★★★*****★*★* 

♦Advanced Composite Structural Program by LMSC* 
♦Flat Stiffener Panel: Revision 1.2, 6/28/91* 
*★★★*★★★★★★**★********★★★★*★*******★***★★★*******•** 


Boundary Condition Definition 

4.1) There are NO ribs on the ends. 

4.2) Ribs on both the Skin and the Stiffener. 

4.3) Ribs are simulated using Simple Support plus 
Rotational 

Constraints . 

4.4) Ends are Part of a Larger Panel. 

4.5) Sides are Part of a Larger Panel. 


Loading Condition Definition 

4.6) Total Loads (lbs.): 

4.7) Axial= 1000.0 

4.8) Lateral= 0.0 

4.9) Shear Along the Ends = 0.0 

4.10) Lateral Pressure (psi.)= 0.0 

Solution Technique 

4.11) Post-Buckling Analysis. 

TYPE OF TARGET >LOAD FACTOR TARGET= 5.70000 

Select m, n=> -1 :Exit; 9: Quit; m,n: Other Menu or Update. » 

-1 


4.0 FLAT RECTANGULAR TUBULAR PANEL 

This module creates a model of a flat rectangular panel made 
up of trapezoidal tubes bonded side by side with face sheets 
bonded on the top and bottom surface, see Figure 8. All 
tubular stiffeners are identical but the top and bottom face 
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sheets may be different layups. The model may be loaded with 
any combination of axial, lateral and shear load. The model 
may be used to perform a stress analysis of the laminates or 
local buckling analysis of the stiffener/face sheet 
combination. Overall buckling of the panel may also be 
determined but care in the selection of boundary conditions 
is important to obtaining meaningful output. 


4.1 CAPABILITIES AND RESTRICTIONS 

1) Any number of tubular stiffeners of any size as long as 
the basic shape remains trapezoidal. 

2) All tubular stiffeners are identical in shape and layup. 

3) Stress and bifurcation buckling analyses may be 
performed . 

A full 3-D set of orthotropic properties is not required since 
all models use shell elements for analysis. 

Through- the-thickness properties are not required. See 
Appendix A.l for definition of material directions and 
requested properties. 

An option to put a filler material along the open sides of 
this model exists . This would simulate the use of a potting 
material in this area used to prevent local buckling in a test 
article. Input may be entered to define the filler material. 
Otherwise properties for a lightweight syntactic filled epoxy 
material are used by default . 

An example input format for this module is preser ed in the Section 
4.2. Figures 8 and 9 are included to explain some of terminology and 
conventions used for the input. A typical model generated using this 
module is shown in Figures 10 and 11. 


USAGE NOTES 

1) The tubes and skins are handled as separate parts in the input, they 
are combined within the model as if they are fully bonded to each 
other . 


4.2 TUBULAR MODULE - EXAMPLE INPUT 

The following input prompts would be shown on the terminal for a 
typical run. Refer-to Figures and for guidance on the meaning of 
various prompts. User input is shown in bold type. 


$ @dialamatic 
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END 


FIGURE 9. TUBULAR FLAT PANEL LOADING 


4 


4 



OIUC 



4 


* 





• LINE LOADS ARE AVERAGE DISTRIBUTED OVER 
BOTH SKIN AND STIFFENERS. PROGRAM WILL 
AUTOMATICALLY REDISTRIBUTE LOADS. 
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AXIAL LOAD 




FIGURE 11. TUBULAR FLAT PANEL - EXAMPLE END PLOT 
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Advanced Composites Structural Concept and Materials Technologies 
Automated DIAL Finite Element Analysis 


DIALAMATIC 
VAX VERSION 1.2 
JUNE 1991 


The following analysis modules are available at this time: 


MODULE NO. 
1 
2 

3 

4 


GENERIC MODEL 

Flat rectangular stiffened panel (Wing panel) 
Curved Stiffened Panel 
Flat rectangular tubular panel 
Geodesic Curved Panel 


Select a module number >>: 3 

Generic Model for Flat Stringer Stiffened Panel 


MODULE 3 
VAX VERSION 1.2 
JUNE 1991 


BASIC ANALYSIS INFORMATION: 


Does a DIAL database file exist? (Y/N) Default is FIL002.>>: n 
Would you like to give the data base file a unique 
name? (Y/N) >> : y 

Input database file name »: tube 

Does a geometry file already exist for this analysis? (Y/N) >> :n 

Input a name for the geometry file. >> : gl.dat 

Does a material properties file exist? (Y/N) >> : n 

Input a name for the material properties file. >> : ml.dat 

Advanced Composite Structural Program 


TUBULAR PANEL MODULE 
Version 1.2 6/28/91 

Updated by Tony Wei. LMSC Bid. 157 Ext: 6-1137 


***Geometric Parameter Inputs*** 

Input 1) for Stress Analysis. 

2) for Buckling Analysis. 


32 


3) for Post Buckling Analysis. 

Enter >> 1 

Input Top Width of the Tube (0.5000in. ) >> 0.5 
Input Bottom Width of the Tube (l.OOOOin.) >> 1.0 
Input Height of the Tubes (0.5000in.) >> 0.5 
Input Length of the Panel (5.0000in.) » 5. 

Input Number of Tubes in the Width Direction (Y) (5) » 5 

Input Boundary Conditions for the Panel. 

1- lnfinite Panel. 

2- Sides Simply Supported. (with Filler Material; ends free) 

3- Sides Simply Supported, (w/o Filler Material; ends free) 

4- Ends Clamped; w/o Filler at the Sides. (Sides Free) 

5- Ends Clamped; with Filler at the Sides. (Sides Free) 

Select Your Choice >> 4 


************* ★ REMINDER * ************** 

**Please Keep the Total Number of Materials 
(Excluding Filler Material) at Maximum of 6** 

Input No. of Materials Used .( Exclude Filler Material)» 1 
Input Information for Material 1 >> 

Name (No More Than 5 0 Characters) >> 976 GRAPHITE EPOXY CLOTH 
Input Elastic Moduli: E11,E22 >>8.9e6. 8 . 9e6 

Input Shear Moduli: G12,G23,G31 » 0.89e6 0.3e6 0.3e6 
Input Poisson's Ratio: V12 >> 0.095 

Do You Want to Utilize the AML Failure Criteria? [Y or N] » y 
Input AML Parameters: ***for further definition, please consult 
the user's manual.*** 


Input AML Paramters for Material 1 » 


*** Tension Strain Values *** 
Point 1-- Angle (Degree) and 
Enter Angle, (deg.) >> -60 
Enter Strain Allowable. >> 
Point 2--' Angle (Degree) and 
Enter Angle, (deg.) >> 0 
Enter Strain Allowable. >> 
Point 3-- Angle (Degree) and 
Enter Angle, (deg.) >> 60 
Enter Strain Allowable. >> 

***Compression Strain Values 
Point 4-- Angle (Degree) and 
Enter Angle, (deg.) >> -60 
Enter Strain Allowable. >> 
Point 5-- Angle (Degree) and 


Strain 

Allowable . 

0.011 

Strain 

Allowable . 

0.022 

Strain 

Allowable . 

0.011 


★ * * 


Stra in 

Allowable . 

- 0.011 

Strain 

Allowable . 
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Enter Angle, (deg.) >> 0 
Enter Strain Allowable. >> - 0.022 
Point 6-- Angle (Degree) and Strain Allowable. 

Enter Angle, (deg.) >> 60 

Enter Strain Allowable. >> - 0.011 

***Wall Layup Information Input*** 

Input No. of Plies for Top Face Sheet (4) » 4 

Input No.. of Plies for Bottom Face Sheet (4) » 4 

Input No. of Plies for Tube Core ( 4) » 4 

Input Material Numbers for Top Face Sheet Lay-up >> 

Is it the Same for All Plies? [Y or N] >> y 

Enter >> 1 

Input Thicknesses for Top Face Sheet Lay-up (in.) >> 

Is it the Same for All Plies? [Y or N] >> y 
Enter >> 0.0142 

Input Orientations of Plies for Top Face Sheet (deg.) >> 

Is it the Same for All Plies? [Y or N] >> n 

Enter >> 0 

Enter >> 45 

Enter >>-45 

Enter >> 90 

Input Material Numbers for Bottom Face Sheet Lay-up » 

Is it the Same for All Plies? [Y or N] >> y 
Enter >> 1 

Input Thicknesses for Bottom Face Sheet Lay-up (in.) >> 

Is it the Same for All Plies? [Y or N] >> y 
Enter >> 0.0142 

Input Orientations of Plies for Bottom Face Sheet (deg.) > 

Is it the Same for All Plies? [Y or N] >> n 

Enter >> 0 

Enter >> 45 

Enter >>-45 

Enter >> 90 

Input Material Numbers Tube Core Lay-up» 

Is it the Same for All Plies? [Y or N] >> y 
Enter >> 1 

Input Thicknesses for Tube Core Lay-up(in.) >> 

Is it the Same for All Plies? [Y or N] >> y 
Enter >> 0.0142 

Input Orientations of Plies for Core Wall (deg.) >> 

Is it the Same for All Plies? [Y or N] >> n 
Enter >> 0 
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Enter >> 45 
Enter >>-45 
Enter >> 90 

Apply loads to the model : 

Load may be input as total load or as an average line load. 
How would you like to input loads? 

1> Total Load. 

2> Line Load. 

Enter >> 1 

Total Tensile (+) or Compressive (-) Load (lb.) on the Ends. 
Enter >> -1000 

Total Tensile ( + ) or Comppressive (-) Load (lb.) on the Sides. 
Enter >> 0 

Total Shear Load (+ CCW and - CW) (lb.) 

1) On the Ends. 

2) On the Sides. 

Enter >> 1 

Shear Load on the Ends = 0 

Choose the Info, to be Listed: 

1> Panel Geometry. 

2> Material Data. 

3> Wall Layups. 

4> Load. 

5> Continue. 

Enter >> 1 

Width at the Tube Bottom = l.OOOin. 

Width at the Tube Top= 0.500in. 

Number of Tubes = 5 
Panel Width = 4.500in. 

Panel Length, PL= 5.000in. 

Total Height of the Panel=0 . 613 600in . 

Tube Height, PH= 0.500in. 

Top Cover Sheet Thickness= 0.056800in. 

Bottom Cover Sheet Thickness= 0.056800in. 

Tube Wall Thickness= 0.056800in. 

Boundary Condition: Ends clamped; w/o filler at the sides. 
Stress Analysis. 

***Hit «Return» for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel Geometry. 

2> Material Data. 

3> Wall Layups. 

4> Load. 

5> Continue. 

Enter» 2 

Material Number: 1 
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Material Name = 97 6 GRAPHITE EPOXY CLOTH 
Orthotropic Material 

Ell (psi)= 8900000.0 E22 (psi ) = 8900000.0 

G12 (psi ) = 890000 .0 G23 (psi) = 300000.0 G31 (psi) 

VI 2=0.09500 


AML parameters for this material. 

***Tension Strain Values*** 

Point 1 Angle (Degree) =-60 . 00 Strain Allowable= 
Point 2 Angle (Degree) = 0.00 Strain Allowable= 0 
Point 3 Angle (Degree) = 60.00 Strain Allowable= 

* * Compression Strain Values*** 

Point 4 Angle (Degree) =-60 . 00 Strain Allowable= 
Point 5 Angle (Degree) = 0.00 Strain Allowable= 
Point 6 Angle (Degree) = 60.00 Strain Allowable= 

* * *Hi t <<Return>> for Next Page*** 

AML Failure Calculation is invoked. 

Choose the Info, to be Listed: 

1> Panel Geometry. 

2> Material Data. 

3> Wall Layups. 

4> Load. 

5> Continue. 

Enter>> 3 

Top Face Sheet Layup. 

Ply Number 1 

Material Number: 1 
Ply Thickness (in) =0 . 01420 
Ply Angle (degree) = 0.00 
Ply Number 2 

Material Number: 1 
Ply Thickness ( in) =0 . 01420 
Ply Angle (degree) = 45.00 
Ply Number 3 

Material Number: 1 
Ply Thickness ( in) =0 . 01420 
Ply Angle (degree) =-45 . 00 
Ply Number 4 

Material Number: 1 

Ply Thickness ( in) =0 . 01420 

Ply Angle (degree) = 90.00 

***Hit <<Return>> for Next Page.*** 

Total Thickness= 0.056800in. 


= 300000.0 


0 . 01100 
.02200 
0.01100 


- 0.01100 
- 0.02200 
- 0 . 01100 
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***Hit «Return» for Next Page.*** 

Bottom Face Sheet Layup. 

Ply Number 1 

Material Number: 1 

Ply Thickness ( in) =0 . 01420 
Ply Angle ( degree ) = 0.00 
Ply Number 2 

Material Number: 1 
Ply Thickness ( in) =0 . 01420 
Ply Angle ( degree ) = 45.00 
Ply Number 3 

Material Number: 1 
Ply Thickness (in) =0 . 01420 
Ply Angle (degree) =-45 . 00 
Ply Number 4 

Material Number: 1 

Ply Thickness ( in ) =0 . 0142 0 

Ply Angle ( degree ) = 90.00 

***Hit «Return» for Next Page.*** 

Total Thickness= 0.056800in. 

***Hit «Return» for Next Page.*** 

Tube Wall Layup. 

Ply Number 1 

Material Number: 1 
Ply Thickness (in) =0 . 01420 
Ply Angle ( degree ) = 0.00 
Ply Number 2 

Material Number: 1 
Ply Thickness ( in) =0 . 01420 
Ply Angle ( degree ) = 45.00 
Ply Number 3 

Material Number: 1 
Ply Thickness~in) =0 . 01420 
Ply Angle (degree) =-45 . 00 
Ply Number 4 

Material Number: 1 

Ply Thickness ( in) =0 . 01420 

Ply Angle ( degree ) = 90.00 

***Hit <<Return>> for Next Page.*** 

Total Thickness= 0.056800in. 

***Hit «Return» for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel Geometry. 
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2> Material Data. 

3> Wall Layups. 

4> Load. 

5> Continue. 

Enter >> 4 

Axial Line Load on the Ends. (lb./in)= -222.222 
Total Axial Load on the Ends. (lb.)= -1000.000 
Axial Line Load on the Sides. (lb./in)= 0.000 

Total Axial Load on the Sides. (lb.)= 0.000 

Shear Line Load (lb./in)= 0.000 

Total Shear Load on the Ends. (lb.)= 0.000 

Total Shear Load on the Sides. (lb.)= 0.000 

***Hit <<Return>> for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel Geometry. 

2> Material Data. 

3> Wall Layups. 

4> Load,. 

5> Continue. 

Enter >> 5 

Choose the Info, to be Modified: l>Panel Geometry. 

2>Material Data. 3>Wall Layups. 4>Load. 5>Return to List 
Menu. 6>Save the Changes and Exit. Enter» 6 
Do you really want to exit this program? [Y or N] Enter 

» y 


*****End of Data Input Session.***** 

*** Begin Dial Runstream Generation *** 

*** Dial Runstream Generation Complete *** 

FORTRAN STOP 

Would you like to rename the geometry file? (Y/N) >>: n 
Did you change geometry data? (Y/N) »: y 
The TGEOM. dat file was deleted. 

Your designated geometry file was not purged. 

Would you like to rename the material file? (Y/N) »: n 
Did you change material data? (Y/N) : >> y 
The TMAT. dat file was deleted. 

Your designated material file was not purged. 

Do you want to proceed with code execution? (Y/N) >> y 

MESH GENERATION STARTED 
FORTRAN STOP 

MESH GENERATON COMPLETED 
FORTRAN STOP 
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FOPTRAN STOP 

BANDWIDTH OPTIMIZATION COMPLETED 
FORTRAN STOP 

MATERIAL PROCESSOR COMPLETED 
FORTRAN STOP 

LOAD PROCESSOR COMPLETED 

Do you wish to Oontinue solve processor interactively? 

B) submit as a batch job? 

P)go to post processor directly? 

E)xit this module? 

Please Select»: E 

End of this session for TUBULAR PANEL. Bye!! 

Do you want to execute another module? (Y/N) »: n 
END OF THIS SESSION. BYE! ! 


5.0 GEODESIC CURVED STIFFENED PANEL 

This module creates a model of a curved panel with geodesically shaped 
stiffeners. The panel can be curved to represent a section of a 
fuselage. The stiffeners are assumed to be filament wound with 
systactic layers such that at the intersections the syntactic filler 
squeezes out to create continuous filament intersections without layer 
thickness buildup. The general structural arrangement and panel 
loading is shown in Figures 12 and 13 . The stiffeners may have 
non-filament wound overwraps if desired. Because of the curvature, 
normal pressures may be applied to the panel which will be reacted 
with a hoop tension load in the panel. All elements of the model are 
created with thick shell elements and analysis can include linear 
stress analysis and a bifurcation buckling analysis if desired. 


5.1 CAPABILITIES AND RESTRICTIONS 

1) Number of axial bays (Must be even number) N>2 

2) Number of lateral bays (Hoop direction) 1<N<5 

3) stiffener angle 40<Alpha<60 

^ ) All stiffeners, both diagonal and hoop, must have similar 

layups . 

5) Model cannot exceed 180 degree arc circumf erentally . 

6) All bays are geometrically similar 

7) Any hoop load (Ny) is determined based on the applied pressure. 

8) Option to perform either a linear stress analysis or 
buckling analysis. The buckling model is necessarily more 
reefined than the stress model and as a consequence will 
requirs longer solution times. 
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FIGURE 13. GEODESIC CURVED PANEL LOADING 


N X y 



• Ny LOADS ARE GENERATED AUTOMATICALLY 
WHEN PRESSURE IS APPLIED. 

• LINE LOADS ARE AVERAGE DISTRIBUTED OVER 
BOTH SKIN AND STIFFENERS. PROGRAM WILL 
AUTOMATICALLY REDISTRIBUTE LOADS. 


41 



Material input procedure is common to all modules and uses a common 
material file (Library). A full 3-D set of orthotropic properties is 
not required since all models use shell elements for analysis. 
Through-the- thickness properies are not required. See appendix A.l 
for definition of material directions and requested properties. 

An example input format for this module is presented on the following 
pages. Additional figures are included to explain some of the 
terminology and conventions used for the input. A typical model 
generated using this module is shown in Figure 14. 


5.2 Geodesic Curved Stiffened Panel - Example Input 

The following input prompts would be shown on the terminal for a 
typical run. The actual prompts will vary for different panel 
designs. Numbers in parenthes after the prompts are the default 
values and may be used simply by hitting a return. Refer to Figures 
12 and 13 for guidance on the meaning of various prompts. 


$ @D I AL AMAT I C 


Advanced Composites Structural Concept and Materials Technologies 
Automated DIAL Finite Element Analysis 


DIALAMATIC 
VAX VERSION 1.1 
DECEMBER 1990 

The following analysis modules are available at this time: 
MODULE NO. GENERIC MODEL 

1 Flat rectangular stiffened panel (Wing panel) 

2 Curved Stiffened Panel 

3 Flat rectangular tubular panel 

4 Curved geodesically stiffened rectangular panel 

Select a module number » : 4 

Generic Model for Geodesically Reinforced Cylindrical Panel 


MODULE 4 
VAX VERSION 1.1 
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FIGURE 14. GEODESIC CURVED PANEL - EXAMPLE MODEL 
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BASIC ANALYSIS INFORMATION: 

Does a DIAL database file exist? (Y/N) Default is FIL002. >>: N 
Does a geometry file already exist for this analysis? (Y/N) »: N 

Input a name for the geometry file. 

Do not use GEOM or GEOM.DAT »: 61 

Does a material properties file exist? (Y/N) »: N 

Input a name for the material properties file. 

Do not use MAT or MAT. DAT >>: Ml 


Advanced Composite Structural Program 
Geodesic Fuselage Panel 
Updated Version - 1.3 

Input 1> for Stress Analysis, 2> for Buck. Analysis. >>1 
Input Bay Length (20. in.) »15 
Input No. of Bays in Axial Direction. 

(Must be Even Number) >>2 

Input No. of Bays in Circumferential Direction. »1 

Input Panel Radius, (in.) >>30 

Input Stiffener Angle (deg.) »50 

Input Stiffener Height. (in.) »1 

Input Boundary Conditions for the panel. 

1- Infinite Panel. 

2 - Sides Clamped. 

3 - Ends Clamped. 

Select Your Choice >>1 

Input No. of Layers for Panel Wall. »3 
Input No. of Layers for Stiffener Wall. »3 
Input Panel Lay-up Material Num. 

Layer Number 1 . » 1 
Layer Number 2 . >> 1 
Layer Number 3 . >> 1 
Input Panel Lay-Up Thickness. 

Layer Number 1 . >> .014 
Layer Number 2 . >> .014 
Layer Number 3 . >> .014 
Input Panel Lay-up Orientation. 

Layer Number 1 . >> O 
Layer Number 2 . >>45 
Layer Number 3 . >> 0 

★♦♦Warning!! Stiffener Lay-up Must be Symmetric.*** 
Input Stiffener Lay-up Material Number. 

Layer Number 1 . >> 1 
Layer Number 2 . >> 1 
Layer Number 3 . >> 1 
Input Stiffener Lay-up Thickness. 
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Layer 

Number 

i . 

>> .014 

Layer 

Number 

2 . 

>> . 2 

Layer 

Number 

3 . 

>> .014 


Input Stiffener Lay-up Orientation. 

Layer Number 1 . >>45 
Layer Number 2 . >> 0 

Layer Number 3 . >>45 
Input No. of Materials Used. >>2 

Input 1> for Iso. Material. 2> for Ortho. Materials. » 
Enter >>2 

Input Elastic Moduli: Ell, E22 (psi) >>7.E6,6.8E6 

Input Shear Moduli: G12,G23,G31 (psi) »3 .E6, 500000 400000 . 

Input Poisson's Ratios: V12 >>.15 

Input Properties for Mataterial Number 2 >> 

Input 1> for Iso. Material. 2> for Ortho. Material. >> 
Enter >>2 

Input Elastic Moduli: Ell,E22 (psi) »20.E6,2.E6 
Input Shear Moduli: G12 , G23 , G3 1 (psi ) 

»1.E6, 300000. , 350000. 

Input Poisson's Ratios: V12 ».06 

Apply Loads to the Model : 

How Would You Like to Input Loads? 
l>as. Total Load. 

2>as Line Load. 

Enter >>2 

Input Axial Line Load ( lb. /in) =1000 
Input Shear Line Load (lb. /in) =500 
Input Pressure Load (psi) =14.7 
Choose the Info, to be Listed: 

1> Panel and Stiffener Geometry. 

2> Material Data. 

3> Wall Lay-ups. 

4> Load. 

5> Exit. 

Enter >>1 

Panel Radius (in) = 30.000 
Panel Length, D(in)= 15.000 
Stiffener Height (in) = 1.000 
Stiffener Angle, ALPHA (degree) =50 . 00 

Number of Panels in: Axial Direction= 2 Hoop Direction =1 
Panel Thickness ( in) = 0.042000 
Stiffener Thickness ( in) = 0.228000 
Boundary Condition: Infinite Panel. 

Stress Analysis . 

***Hit «Return» for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel and Stiffener Geometry. 
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2> Material Data. 

3> Wall Lay-ups. 

4> Load. 

5> Exit . 

Enter >>2 

Material Number: 1 
Orthotropic Material 

Ell (psi ) = 7000000.0 E22 (psi )= 6800000 . 0 

G12 (psi ) = 3000000.0 G23(psi)= 500000.0 G31(psi) 

VI 2 = 0.150 

Material Number: 2 
Orthotropic Material 

Ell (psi ) = 20000000.0 E22 (psi ) = 2000000.0 

G12 (psi ) = 1000000.0 G23(psi)= 300000 . 0 G31 (psi ) = 

V12 = 0.060 

* * *Hit «Return» for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel and Stiffener Geometry. 

2> Material Data. 

3> Wall Lay-ups. 

4> Load. 

5> Exit . 

Enter >>3 

Panel Wall Lay-ups. 

Ply Number 1 

Material Number: 1 
Ply Thickness ( in ) = 0.014000 
Ply Angle (deg. )= 0.00 

Ply Number 2 

Material Number: 1 
Ply Thickness ( in) = 0.014000 
Ply Angle(deg.)= 45.00 
Ply Number 3 

Material Number: 1 
Ply Thickness ( in) = 0.014000 
Ply Angle (deg. )= 0.00 

Panel Thickness ( in) = 0.042000 

***Hit <<Return>> for Next Page.*** 

Stiffener Wall Lay-ups. 

Ply Number 1 
Material Number: 1 
Ply Thickness ( in) = 0.014000 
Ply Angle (deg. )= 45.00 

Ply Number 2 
Material Number: 2 


400000.0 


350000.0 
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Ply Thickness ( in) = 0.200000 
Ply Angle(deg.)= 0.00 
Ply Number 3 
Material Number: 1 
Ply Thickness ( in) = 0.014000 
Ply Angle (deg. )= 45.00 

Stiffener Thickness ( in) = 0.228000 

***Hit «Return>> for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel and Stiffener Geometry. 

2> Material Data. 

3> Wall Lay-ups. 

4> Load. 

5> Exit . 

Enter >>4 

Axial Line Load (lb./in)= 1000.000 
Shear Line Load (lb./in)= 500.000 
Pressure Load (lb./in**2)= 14.700 
###Hit <<Return» for Next Page.*** 

Choose the Info, to be Listed: 

1> Panel and Stiffener Geometry. 

2> Material Data. 

3> Wall Lay-ups. 

4> Load. 

5> Exit . 

Enter »5 

Choose the Info, to be Modified: l>Panel and 
Stiffener Geometry. 2>Material Data. 3>Wall 
Lay-ups. 4>Load. 5>Update Info, and List. 

6>Exit. Enter >>6 

Do You Really Want to Exit This Program? [Y or N] 

HAVE YOU SAVED YOUR DATABASE ??? 

Enter »Y 

*****End of data input session.***** 

Begin DIAL Runstream Generation 
DIAL Runstream Generation Complete 
FORTRAN STOP 

CREATION OF DIAL RUNSTREAMS COMPLETED, MESH GENERATION STARTED. 
FORTRAN STOP 

MESH GENERATION COMPLETED. 

FORTRAN STOP 
FORTRAN STOP 

BANDWIDTH OPTIMIZATION COMPLETED. 
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FORTRAN STOP 

MATERIAL PROCESSOR COMPLETED. 

FORTRAN STOP 

LOAD PROCESSOR COMPLETED. 

Do you wish to enter the solve processor now or submit as a batch job? 
(Continue=C, Batch job=B) » : B 

AUTOMATIC BATCH PROCESSING NOT IMPLEMENTED AT THIS TIME 

USER MUST SUBMIT DIAL SOLVE PROCESSOR IN FILE FLOAD.COM MANUALLY. 

THE DIAL DATA BASE GENERATED MUST BE USED OR REGENERATED ON 
WHATEVER MACHINE IS CHOSEN FOR BATCH PROCESSING. 

DUE YOU WISH TO PROCEED INTO POST PROCESSING TO VIEW GEOMETRY OR 
LOADS? (Y/N) » : N 

Do you want to end this session? (Y/N) >> : Y 
% SYSTEM -F-NOLOGNAM, no logical name match 
$ 


6 . 0 POST PROCESSING 

Whether the generic model is run interactively or as a batch job a 
data base file is created which contains the results of the analysis. 
Other files are also generated which contain the print output of each 
DIAL processor. The print output files may be edited to obtain general 
information on the run. The primary means of obtaining results of the 
analysis is through an automated post processing program which queries 
the user for what he would like to see and generates either plots or 
summary tables containing the pertinant information. The added 
flexibility of performing other post processing tasks is possible 
through the actual execution of the normal DIAL SCOPE processor. This 
requires knowledge of the commands of that processor as well as 
certain node and element numbering information of the model. 

Each generic model module will generate a unique set of plots for that 
particular model, but all models have the same basic categories of 
plots and summaries available. They include: 

1) Geometry plots of the model 

2) Geometry plots showing applied loads . 

3) Deflected geometry plots for the applied load case for either the 

linear stress state or the buckled shape. 

4) Load, stress or margin of safety contour plots for individual 
laminates or plies of the model. 

5) Load summary tables giving the max/min laminate loads and strains 
for individual parts of the model. 

6) Stress summary tables giving the maximum ply stresses and strains 
for individual laminates of the model. 

7) Margin of safety summary table for individual laminates of the 
model using the AML failure criteria. 
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The program that is used to generate this output is similar to the 
programs that generate the model to start with. That is, all data is 
queried for interactively in a simple straight-forward fashion. This 
provides for maximum ease of use with some flexibility in what 
output is desired. 


6-1 POST PROCESSING SESSION EXAMPLE 

The following is an example session for generating post processing 
output. The actual output devices will depend on the local hardware 
configuration and user selection. For the pupose of this example it is 
assumed that tl~e post processing executable runstream is given the 
name PP for execution. If this is a continuation of an interactive run 
no assignments to the data base file will be necessary (Just hit 
return) , but if the data base file was previously created the program 
will ask for the name of the file. Example plots generated by this 
module for the stringer stiffened panel model follow the listing. 


$ ©dialamatic 


Advanced Composites Structural Concept and Materials Technologies 
Automated DIAL Finite Element Analysis 


DIALAMATIC 
VAX VERSION 1.2 
JUNE 1991 


The following analysis modules are available at this time: 


MODULE NO. 
1 
2 

3 

4 


GENERIC MODEL 

Flat rectangular stiffened panel (Wing panel) 
Curved Stiffened Panel 
Flat rectangular tubular panel 
Curved Geodesically Stiffened Panel 


Select a module number >> : 1 


Generic Model for Flat Stringer Stiffened Panel 


MODULE 1 
VAX VERSION 1.2 
JUNE 1991 


BASIC ANALYSIS INFORMATION: 
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Does a DIAL database file exist? (Y/N) Default is FIL002. >> : y 
What is the name of the DIAL database? >> : FIL002. 

Do you wish to proceed into post processing of analysis results? (Y/N) 

» : y 


Advanced Composites Structural Concept 
and Materials Technologies 
Automated DIAL finite element analysis 
POST PROCESSING MODULE 


VAX VERSION 1.2 
JUNE 1991 

What is the name of the DIAL data base file?: FIL002. 
Which module was used to create this data base? 

1) FLAT RECTANGULAR STRINGER STIFFENED PANEL 

2) FLAT RECTANGULAR TUBULAR PANEL 
NUMBER? » : 1 


SCOPE Processor 

Original Run Time: 12:29:38 Date: 2-JUL-91 Version: L3D3 

Current Run Time: 10:38:59 Date: 3-JUL-91 Version: L3D2 

BLANK COMMON Space 1000000 

GIVE A SHORT NAME FOR THIS ANALYSIS 

PRECEDE MULTIPLE WORDS WITH APOSTROPHE » 'EXAMPLE SESSION 

WHAT TYPE OF TERMINAL? ( TEK, SEL , RETR, VT2 4 ) » VT24 

WILL YOU WANT TO PLOT HARD COPIES? (Y/N) » y 

INPUT HARD COPY DEVICE (VERS , QMS ) » VERS 

WHAT OUTPUT OPTION WOULD YOU LIKE? 

1) SCREEN PLOTS ONLY, NO HARD COPIES 

2) ONLY HARD COPY PLOTS 

3) SCREEN PLOTS WITH HARD COPY PLOTS OPTIONAL 
OPTION NUMBER? » 3 


MENU FOR PLOTS AND SUMMARY TABLES: 

1) BASIC GEOMETRY PLOT 

2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN 

3) DEFLECTED GEOMETRY PLOT 

4) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS 

5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN 

6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY 

7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR STRAINS 

8) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN 

9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY 
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10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS 

11) SUMMARY TABLE OF PLY STRESSES AND STRAINS 

12) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY 
99) TERMINATE POST PROCESSING SESSION 

INPUT NUMBER OF MENU ITEM DESIRED » 1 


AFTER EACH PLOT IS GENERATED HIT A RETURN TO CONTINUE 

CURRENT VIEWPOINT IS: X = 1.0 Y = -1.0 Z = 1.0 

DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT? (Y/N) »n 
PICK THE PARTS TO BE DISPLAYED: 

ALL PARTS (SKIN + STIFFENERS) = 0 

O SKIN ONLY = -1 

SINGLE STIFFENER (1 THRU N) = ? 

INPUT OPTION » 0 

Element Set 20 INSERT Keyword ALL 
PICK ONE OF THE FOLLOWING LABEL OPTIONS: 


NO NODE OR ELEMENT NUMBERING = 0 
NODE NUMBERING ONLY = 1 
ELEMENT NUMBERING ONLY = 2 
NODE AND ELEMENT NUMBERING = 3 


INPUT OPTION » 0 

Save plot on metafile, plot number= 1 (Ref. Figure 15) 

MENU FOR PLOTS AND SUMMARY TABLES: 

1) BASIC GEOMETRY PLOT 

2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN 

3) DEFLECTED GEOMETRY PLOT 

4) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS 

5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN 

6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY 

7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR STRAINS 

8) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN 

9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY 

10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS 

11) SUMMARY TABLE OF PLY STRESSES AND STRAINS 

12) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY 
99) TERMINATE POST PROCESSING SESSION 

INPUT NUMBER OF MENU ITEM DESIRED » 2 

CURRENT VIEWPOINT IS: X = 1.0 Y = -1.0 Z= 1.0 

DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT? (Y/N) »n 

Set Nodal Quantities NQD= 1, 2, 3, 4, 5, 6 
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FIGURE 15. POST PROCESSING - GEOMETRY PLOT 
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File [ FIL . 2 ] UL . SV Fourier No . = 0 Sequence No . = 1 

Save plot on metafile, plot number= 2 (Ref. Figure 16) 

MENU FOR PLOTS AND SUMMARY TABLES: 

1) BASIC GEOMETRY PLOT 

2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN 

3 ) DEFLECTED GEOMETRY PLOT 

4) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS 

5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN 

6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY 

7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR 
STRAINS 

6) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN 

9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY 

10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS 

11) SUMMARY TABLE OF PLY STRESSES AND STRAINS 

12) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY 
99) TERMINATE POST PROCESSING SESSION 


INPUT NUMBER OF MENU ITEM DESIRED » 3 
SELECT DESIRED DEFLECTION PLOT TYPE: 

LINEAR ANALYSIS - 0 

BUCKLING ANALYSIS MODE SHAPE = 1 
NONLINEAR ANALYSIS = 2 

INPUT SELECTION » 0 


SELECT DEFLECTION MAGNIFICATION FACTOR TO BE USED: 


LOW ( . 10) = 0 
MED (.20) = 1 
HIGH ( .50) =2 
USER SELECTABLE = 3 


INPUT SELECTION » 1 


Set Nodal Quantities NQD= 1, 2, 3, 4, 5, 6 

File [FIL.2JD.SV Fourier No . = 0 Sequence No. = 1 

CURRENT VIEWPOINT IS : X = 1.0 Y = -1.0 Z= 2.0 

DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT? (Y/N) »n 

WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N) » y 


Save plot on metafile, plot number= 3 (Refer Figure 17) 

MENU FOR PLOTS AND SUMMARY TABLES: 

1) BASIC GEOMETRY PLOT 

2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN 

3) DEFLECTED GEOMETRY PLOT 

4) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS 

5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN 

6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY 

7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR STRAINS 
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FIGURE 16. POST PROCESSING - GEOMETRY PLOT WITH 
LOAD VECTORS 
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8) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN 

9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY 

10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS 

11) SUMMARY TABLE OF PLY STRESSES AND STRAINS 

12) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY 
99) TERMINATE POST PROCESSING SESSION 

INPUT NUMBER OF MENU ITEM DESIRED » 4 

CURRENT VIEWPOINT IS : X = 0.0 Y=0.0 Z=1.0 

DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT?(Y/N) »n 

SELECT LOAD FACTOR LEVEL TO BE PLOTTEt) : 

LINEAR SOLUTION = 0 

MAX LOAD STEP ATTAINED = 1 
INTERMEDIATE LOAD FACTOR = 2 

INPUT SELECTION >> 0 


Set Element Integration Point Quantities 

File [FIL.2jS.EIP Fourier No . = 0 Sequence No . = 1 

QUANTITY MENU: (LINE LOAD) N-X = 1, N-Y = 2, N-XY = 3 

(LINE MOMENT) M-X = 4, M-Y = 5 

(AVG STRAIN) E-X = 11, E-Y = 12, E-XY = 13 

--> INPUT 99 TO DISCONTINUE PLOTTING 
INPUT DESIRED QUANTITY NUMBER » 1 


Save plot on metafile, plot number= 4 (Refer. Figure 18) 


QUANTITY MENU: (LINE LOAD) N-X = 1, N-Y = 2, N-XY 

(LINE MOMENT) M-X = 4, M-Y = 5 ' 

(AVG STRAIN) E-X = 11, E-Y = 12, E-XY 

--> INPUT 99 TO DISCONTINUE PLOTTING 
INPUT DESIRED QUANTITY NUMBER >>99 


3 

13 


MENU FOR PLOTS AND SUMMARY TABLES : 

1) BASIC GEOMETRY PLOT 

2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN 
-3) DEFLECTED GEOMETRY PLOT 

4 ) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS 

5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN 

6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY 

7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR 
STRAINS 

8) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN 

9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY 

10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS 

11) SUMMARY TABLE OF PLY STRESSES AND STRAINS 

12 ) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY 
99) TERMINATE POST PROCESSING SESSION 
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INPUT NUMBER OF MENU ITEM DESIRED >> 99 


* Mapped-vector algorithm * 


★ * * * * PLOT OPTIONS IN EFFECT* * * * * 


o . oo 

10.56 0 . i 

MODEL 

= 1200 

YMIN 

= 0.00 

X START 

= 0.00 

XFACT 

= 1 . 00 

STRIP 

= 10.56 

12FLG 

= 2 

NSCN 

= 48 

MODEL P 

= 6 


. 00 0 . 00 

-1 . 00 

, XMIN 

0.00 

, YMAX 

10.56 

, YSTART = 

0.00 

, YFACT = 

1.00 

, STRI PO = 

0.00 

, OUT 

-1.00 

, NIBS 

2112 


2112 


XMAX 

10 . 56 

, MSGLVL = 

1 

, SCALE = 

1.00 

, UNITS = 

1.00 

, SPACE = 

10.56 

, LYNES = 

600 

, DEN 

200.00 


SAVED PLOTS ARE NOW BEING TRANSFORMED TO PLOT FILES 
PLEASE WAIT UNTIL COMPLETION IS INDICATED. 


* PLOT 1 summary: 

941. plottable vectors 
0 clipped vectors 
0 unplottable vectors 

* PLOT 2 summary: 

1031. plottable vectors 
0 clipped vectors 
0 unplottable vectors 

* PLOT 3 summary: 

2299. plottable vectors 
0 clipped vectors 
0 unplottable vectors 

*S* METAPL Metafile plotting completed, 4 plots generated 

-LOT FILE TRANSFORMATION COMPLETED 

THIS COMPLETES THE POST PROCESSING SESSION. 

ANY HARD COPY PLOTS GENERATED HERE WILL RESIDE ON FILES IN THE 
WORKING DIRECTORY, USE NORMAL SUBMITTAL PROCEDURES TO ACTUALLY 
PRINT THEM. 

* PLOT 4 summary: 

1902. plottable vectors 
0 clipped vectors 
0 unplottable vectors 

Data Base Updated 
Processor Stop 
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FORTRAN STOP 


Do you want to end this session? (Y/N) >> : y 

END OF THIS SESSION FOR FLAT STRINGER STIFFENED PANEL. Bye!!! 
Do you want to execute another module? (Y/N) » : n 
END OF THIS SESSION. Bye!!! 
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APPENDIX 


A . 1 Material Properties Input 

The material input section is common to all generic model modules and 
is intended to create a library type file from which material 
properties for the lamina are obtained. The modules will query the 
user for material input numbers for the materials being used and if 
they do not already exist on the material file, the program will ask 
for the appropriate input. One should be careful of the numbering 
sequence and revising materials that previously existed. This could 
cause previously generated models to pick up the wrong values if 
rerun. The input required is shown below. 


Material number (From 1 to 99) 

In plane moduli E^ and E 22 (psi) 

Shear moduli G-^/G^, and G 23 (In plane and transverse - psi) 
In plane Poissons ratio (u(12) 



E G12 

11 
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AML Failure Methodology Input 


If the user desires to calculate margins of safety for the 
structure being analyzed, the AML (Angle Minus Loaded) method has 
been implemented. The allowable strain in both tension and 
compression is required versus the AML parameter (Percentage plies 
at 45 deg to the direction being checked minus the percentage of 
plies in the direction being analyzed) . A typical figure is shown 
below. Input to the program consists of six number pairs of AML 
values and allowable strain values. This allows for a bilinear 
curve for both tension and compression allowables. The user is 
prompted for these number pairs. The points are shown graphically 
below. 



INPUT PAIRS: 


AML 

PARAMETER 

-60 

0 

+70 

-60 

0 

+70 


ALLOWABLE 

STRAIN 

+0.0034 

+0.0048 

+0.0065 

-0.0029 

-0.0039 

-0.0051 
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APPENDIX 


A. 2 Input Data File Structure 

BRIEF DESCRIPTIONS OF DATA IS GIVEN IN PARENTHESIS. 
ACTUAL DATA VARIES FROM ONE MODEL TO ANOTHER. 


MODULE 1: 


GEOMETRY FILE: 


1 1 

0.0000 
0.0000 
2 1 

0 . 5000E+04 
3 0 


2 3 20.0000 15.000 

10.0000 20.0000 
7.5000 15.0000 

14 3 1 

0 . 0000E+00 0 . 0000E+00 

1.00000 


(PANEL GEOM. Sc MESH REFINEMENT) 
(STRINGER SPACING) 
(FRAME SPACING) 
(BOUNDARY CONDITIONS) 
0 . OOOOE+OO (LOADS) 

(ANALYSIS TYPE AND PARAMETERS) 


MATERIAL FILE: 


1 

0 . 7000E+07 0 . 8000E+07 

0 . 2000E+07 0.5000E+06 

-0 . 6000E+02 0 . 1000E-02 

-0 . 6000E+02 -0.2000E-02 
2 

1 0.10000 45.0000 

1 0.10000 45.0000 

8 

0 . 3000E+01 0 . 4000E+01 

1 

1 0.1000 0.0000 

2 

1 0.0500 -45.0000 

1 0.0500 45.0000 

1 

1 0.1000 0.0000 


0 . 000E+00 0-. 2000E+00 
0 . 5000E+06 0. 0000E+00 
0. OOOOE+OO 0 . 2000E-02 
0 . OOOOE+OO-3 . 000E-02 


(MATERIAL NUMBER) 
0. 0000E+00 0. OOOOE+OO* 

0. 0000E+00 0. 0000E+00* 

0 . 6000E+02 0 . 3000E-02* 

0 . 6000E+02 -0.4000E-02* 
(SKIN LO. OF LAYERS) 


(SKIN LAYER MATL NO., THICK. & ORIENT.) 


(STIFFENER TYPE) 
0 . 2000E+00 0 . 3000E+01 (STIFF. DIMENSIONS) 

(NO. OF LAYERS IN STIFF. ELEMENT #1) 
(LAYER MATL NO., THICK. Sc ORIENT.) 
(NO. OF LAYERS IN STIFF ELEMENT #1) 
(LAYER MATL NO., THICK Sc ORIENT.) 

(NO. OF LAYERS IN STIFF ELEMENT #1) 
(LAYER MATL NO., THICK. Sc ORIENT.) 


★ 


SIX COLUMNS ABOVE CONTAIN MATERIAL LAMINA El, E2 , 
AND ALM ALLOWABLE INFORMATION. 


E3, G12 , G23 , V12 
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APPENDIX 


A. 2 input Data File Structure (Continued) 

MODULE 2 : 

GEOMETRY FILE: 

1.20000 0.50000 0.75000 3.00000 (TUBE DIMENSIONS) 

35 11 (NO. OF TUBES, NO. OF ELEM., B.C.'S) 

3.00000 3 50 (NONLINEAR ANLAYSIS PARAMETERS) 

0.06000 0.15000 0.05000 (SKIN AND TUBE LAMINATE THICKNESSES) 

331 (NO. OF PLIES IN EACH PART) 

1 1 0.02000 45.00 

2 1 0.02000 0.00 (TOP SKIN LAYER MATL NO., THICKNESS, & ORIENT) 

3 1 0.02000 45.00 

1 1 0.05000 45.00 

2 1 0.05000 0.00 (bOP SKIN LAYER MATL NO., THICKNESS, & ORIENT) 

3 1 0.05000 45.00 

1 1 0.0500 0.00 (TUBEL LAYER MATL NO., THICKNESS & ORIENT) 

MATERIAL FILE: 


1 

GR/EP 


976 

7000000.000 

1000000 . 000 
0.200 


(MATERIAL NUMBER) 

(MATERIAL NAME) 

8000000.000 100.000 (E1,E2,E3) 

50000.000. 50000.000 (G12 , G, 13 , G23 ) 

0.000 0.000 (V12 ) 


d 


0 .000 
1470.588 
-1470.588 
1470.588 
0.000 
1470.588 
-1470.588 
1470.588 
0.00000 
0.00000 
0.00000 
0.00000 
0 . 00000 
0 .00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0 .00000 
0.00000 


(LOADS) 


(AML ALLOWABLES) 
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APPENDIX 


A. 3 GENERIC MODfcL RUNSTREAMS 


RUNSTREAM 


LOCATION 


MAIN DRIVER PROGRAM A . 3 . 1 

MODULE 1 DRIVER A. 3. 2.1 

MODULE 2 DRIVER A. 3. 2. 2 

MODULE 3 DRIVER A. 3. 2. 3 

MODULE 4 DRIVER A. 3. 3. 4 

MODULE 1 PROGRAM A . 3 . 3 . 1 

MODULE 2 PROGRAM A . 3 . 3 . 2 

MODULE 3 PROGRAM A . 3 . 3 . 3 

MODULE 4 PROGRAM A . 3 . 3 . 4 


POST PROCESSING DRIVER 
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APPENDIX A. 3 


A. 3.1 MAIN DRIVER PROGRAM 


I######### 


DIALAMATIC 

THIS PROCEDURE IS DESIGNED TO ACT AS THE 
BASIC RUN DRIVER FOR THE 
FLAT, CURVED, TUBULAR AND GEODESICALLY 
STIFFENED PANEL GENERIC MODELS, AS PART OF 
DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 


VAX VERSION VI. 2 6-28-91 
AUTHOR: A. Y. VEI AND V. M. 
PHONE: (408) 756-1137 


BROWN LMSC 81-12 


$! 

$! 

$! 

$ ! 

$ ! 

$! 

$ ! 

$ ! 

$ ! 

$ ! 

$! 

$ ! 

$ ! ################################################################### 

$ ST ART: 

$ W : =WRITE SYS$OUTPUT 
$W "" 

SU ” 

$W " 

$V "" 

$V " 

$V " 

$W " 

$U "" 

$V "" 

$W " 

$W " 

$W " 

$W " 

$W " " 

SINQUIRE MOD 
$IF MOD . EQS . 

$IF MOD .EQS. 

$IF MOD .EQS. 

$IF MOD .EQS. 

$M0D1 : 

S@M0D1.COM 
SGOTO Q1 
SM0D2: 

$@M0D2 . COM 
SGOTO 01 
$M0D3: 

$@M0D3 . COM 
SGOTO Ql 
SM0D4: 

S@MOD4.COM 
SGOTO Ql 
SQl: 

SINQUIRE RTN " WOULD YOU LIKE TO RUN ANOTHER MODULE ? » " 

$IF RTN .EQS. "Y" GOTO START 


DIAL-A-MATIC Stringer Stiffened Panels " 

MODULES 1,2, 3, 4 
VAX VERSION 1.2" 

JUNE 1991" 


1) FLAT STIFFENED PANEL 

2) CURVED STIFFENED PANEL 

3) TUBULAR TRUSS CORE PANEL 

4) GEODESICALLY STIFFENED PANEL 

" PLEASE CHOOSE THE APPROPRIATE MODULE, 1-4 » 
"1" THEN GOTO MODI 
"2" THEN GOTO M0D2 
"3" THEN GOTO M0D3 
"4" THEN GOTO M0D4 
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############ 


A3. 2.1 FLAT STIFFENED PANEL MODULE # 1 DRIVER 

$ ! 

$ ! DIALAMATIC 

$ ! 

$ ! THIS PROCEDURE IS DESIGNED TO ACT AS THE 
$ ! BASIC RUN DRIVER FOR THE STRINGER STIFFENED 
$ ! FLAT PANEL GENERIC MODEL AS PART OF 
$! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 
$! 

$ ! VAX VERSION VI. 2 6-28-91 

$ ! AUTHOR: A. Y. WEI AND W. M. BROWN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$ ! 

$ ! ################################################################### 

$ START: 

$ W := WRITE SYSSOUTPUT 
$FILE=F$SEARCH( "TAPE10 . DAT" ) 

$IF FILE .EQS. THEN GOTO FD1 
SDELETE TAPE10.DAT;* 

$FD1 : 

$FILE=F$SEARCH( "TAPE11 . DAT" ) 

$IF FILE .EQS. "" THEN GOTO FD2 
SDELETE TAPE11.DAT;* 

$FD2 : 

$W "" 

$W " 

$W " Generic Model for Flat Stringer Stiffened Panel" 

$W ” " 

$V " MODULE 1 

$W " VAX VERSION 1.2" 

$W " JUNE 1991 

$W "" 

$W "" 

$W "BASIC ANALYSIS INFORMATION:" 

$V " " 

SINQUIRE DB "Does a DIAL database file exist?(Y/N) Default is FIL002. » " 

$IF DB .EQS. "Y" THEN GOTO STP1 
$IF DB .EQS. "N" THEN GOTO STP2 

SSTPl: 

$W " ” 

SINQUIRE D1 "What is the name of the DIAL database? » " 

SASSIGN 'Dl' FIL002 . 

SGOTO END1 

SSTP2: 

$W "" 

SINQUIRE DBN "Would you like to give the data base file a unique name?(Y/N) >> " 
$IF DBN .EQS. "Y" THEN GOTO STP2A 
SASSIGN FIL002 . FIL002. 

SGOTO STP2B 
SSTP2A: 

SINQUIRE Dl "Input database file name >> " 

SASSIGN 'Dl' FIL002 . 

SSTP2B: 

$V "" 

SINQUIRE D2 "Does a geometry file already exist for this analysis?(Y/N) >> " 

$IF D2 .EQS. "Y" THEN GOTO STP3 
$IF D2 .EQS. "N" THEN GOTO STP4 
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SINQUIRE GEOM "What is the name of the existing geometry file? >> " 
$C0PY 'GEOM' TAPE10.DAT 
$GOTO STP4A 

$STP4 : 

$V "" 

SINQUIRE GEOM "Input a name for the geometry file. >> " 
$FILE=F$SEARCH(GEOM) 

$IF FILE . EQS. "" THEN GOTO FD3 
SDELETE 'GEOM';* 

SFD3: 


SSTP4A: 

$W "" 

C;y « « 

SINQUIRE MAT "Does a material properties file exist?(Y/N) >> " 

$IF MAT .EQS. "Y" THEN GOTO STP5 
$IF MAT .EQS. "N" THEN GOTO STP6 

SSTP5: 

$W "" 

SINQUIRE MAT "What is the name of the existing material properties file? >> 
SCOPY 'MAT' TAPE11.DAT 
SGOTO STP6A 

SSTP6: 

$W "" 

SINQUIRE MAT "Input a name for the material properties file. >> " 

$FI LE= F$SEARCH ( MAT ) 

$IF FILE .EQS. "" THEN GOTO FD4 
SDELETE 'MAT';* 

SFD4: 

SSTP6A: 

Sdefine/user sys$input sysScommand 
$!RUN GSTIFVAX.EXE 

$!RUN UD1 1 : [ SCRATCH . E586018 . SPAN ] SP910 . EXE 
SRUN SP910.EXE 
$W "" 

$W "ASSEMBLY OF DIAL INPUT RUNSTREAMS COMPLETED" 

$W "" 

SINQUIRE SAVE "Would you like to rename the geometry file?(Y/N) >> " 

$IF SAVE .EQS. "N" THEN GOTO STEP6B 
$W "" 

SINQUIRE NG "Input new name for geometry file >> " 

SCOPY TAPE10.DAT TAPE10. 

SCOPY TAPE10. 'NG' 

SSTEP6B: 

SCOPY TAPE10.DAT TAPE10. 

SCOPY TAPE10. 'GEOM' 

$W "" 

SINQUIRE SAVE "Would you like to rename the material file?(Y/N) » " 

$IF SAVE .EQS. "N" THEN GOTO STEP6C 
$W "" 

SINQUIRE NM "Input new name for material file >> " 

SCOPY TAPE11.DAT TAPE11. 

SCOPY TAPE11 . 'NM' 

SSTEP6C: 

SCOPY TAPE11.DAT TAPE11. 

SCOPY TAPE11 . 'MAT' 

$W "" 



SINQUIRE DEXT "Do you want to proceed with code execution?(Y/N) >>" 

$IF DEXT . EQS. "N" THEN GOTO CLOSEA 
$W "" 

$W "MESH GENERATION STARTED." 

S@TAPE12A.COM 

$U "MESH GENERATION COMPLETED." 

$@TAPE12B . COM 

$W "BANDWIDTH OPTIMIZATION COMPLETED." 

S@TAPE12C.COM 

$W "MATERIAL PROCESSOR COMPLETED." 

S@TAPE12D.COM 

$V "LOAD PROCESSOR COMPLETED." 

$V "" 

$U " Do you want to C)ontinue solve processor interactively?" 

$W " B)submit as a batch job?" 

$W " P)go to post processor directly?" 

$W " E)exit this module? (option to write CRAY COM file)" 

SINQUIRE SOL "Please select >>" 

SIF SOL .EQS. "B" THEN GOTO BATCH 

SIF SOL .EQS. "P" THEN GOTO END1 

SIF SOL .EQS. "E" THEN GOTO CLOSE 

S@TAPE12E.COM 
SGOTO END1 

S BATCH: 

$W "" 

$W "AUTOMATIC BATCH PROCESSING NOT IMPLEMENTED AT THIS TIME" 

$W "USER MUST SUBMIT DIAL SOLVE PROCESSOR IN FILE TAPE12E.COM MANUALLY." 

$W "THE DIAL DATA BASE GENERATED HERE MUST BE USED OR REGENERATED ON" 

$V "WHATEVER MACHINE IS CHOSEN FOR BATCH PROCESSING." 

$W "" 

$W "Due you wish to proceed into post processing to view geometry or loads 
SINQUIRE PP "(Y/N) » " 

SIF PP .EQS. "N" THEN GOTO END2 

S@PPMODl.COM 

SGOTO END2 


SEND1 : 

$W "" 

SW "Due you wish to proceed into post processing of analysis results?" 
SINQUIRE PP "(Y/N) » " 

SIF PP .EQS. "N" THEN GOTO END2 

$!@PP.COM 

S@PPMODl.COM 

SEND2: 

$W "" 

SINQUIRE P "Do you want to end this session? (Y/N) >> " 

SIF P .EQS. "Y” THEN GOTO CLOSE 
SIF P .EQS. "N" THEN GOTO STP2B 

SCLOSE: 

SPUR *.OUT 
SCLOSEA: 

$FILE=F$SEARCH( "TAPE10 . DAT" ) 

$IF FILE .EQS. "" THEN GOTO FD10 
$ DELETE TAPE10.DAT;* 

SFD10: 

$ FI LE=F$ SEARCH ( "TAPE 11 . DAT" ) 

SIF FILE .EQS. "" THEN GOTO FD11 
SDELETE TAPE11.DAT;* 

SFDll: 



$FILE=F$SEARCH( "TAPE10. " ) 

$IF FILE . EQS. "" THEN GOTO FD12 
SDELETE TAPEIO. ;* 

SFD12: 

$F I LE=F$ SEARCH ( "TAPE11 . " ) 

$IF FILE .EQS. "" THEN GOTO FD13 
SDELETE TAPE11 . ; * 

SFD13: 

SPUR 'GEOM' 

SPUR 'MAT' 

SPUR 'NG' 

SPUR 'NM' 

SPUR ' CNAM ' 

SDEASSIGN FIL002 . 

SW "" 

SINQUIRE CR "Do you want to write a CRAY COM file?(Y/N) » " 

SIF CR .EQS. "Y" THEN GOTO CRAY 
SIF CR .EQS. "N" THEN GOTO NOCR 
SCRAY: 

$U "" 

SINQUIRE CNAM "What name would you give the CRAY runstream? >> " 
$RUN CONVERT . EXE 
SCOPY CRAY.COM 'CNAM' 

$W "" 

SNOCR: 

$W "" 

$W "END OF THIS SESSION FOR FLAT STRINGER STIFFENED PANEL. Bye 
$V "" 



)############ 


A3. 2. 2 CURVED STIFFENED PANEL MODULE # 2 DRIVER 

$ ! 

$! DIALAMATIC 

$! 

$ ! THIS PROCEDURE IS DESIGNED TO ACT AS THE 
$ ! BASIC RUN DRIVER FOR THE STRINGER STIFFENED 
$ ! CURVED PANEL GENERIC MODEL AS PART OF 
$! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 
$! 

$ ! VAX VERSION VI. 2 6-28-91 

$ ! AUTHOR: A. Y. WEI AND V. M. BROWN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$ ! 

$ ! ################################################################### 

$ START: 

$ W := WRITE SYS$OUTPUT 
$FILE=F$SEARCH( "TAPE10. DAT" ) 

$IF FILE .EQS. "" THEN GOTO FD1 
$ DELETE TAPE10.DAT;* 

$FD1 : 

$FILE=F$SEARCH( "TAPE11 . DAT" ) 

$IF FILE .EQS. "" THEN GOTO FD2 
SDELETE TAPE11.DAT;* 

$FD2 : 

$W "" 

$W " 

$V " Generic Model for Curved Stringer Stiffened Panel" 

$V "" 

$V " MODULE 2 

$W " VAX VERSION 1.2" 

$V " JUNE 1991 

$W "" 

$W "" 

$W "BASIC ANALYSIS INFORMATION:" 

$V "" 

SINQUIRE DB "Does a DIAL database file exist?(Y/N) Default is FIL002. >> " 

$IF DB .EQS. "Y" THEN GOTO STP1 
$IF DB .EQS. "N" THEN GOTO STP2 

$STP1 : 

$W "" 

SINQUIRE Dl "What is the name of the DIAL database? >> " 

SASSIGN 'Dl' FIL002 . 

$GOTO END1 

$STP2 : 

$W "" 

SINQUIRE DBN "Would you like to give the data base file a unique name?(Y/N) >> " 

$IF DBN .EQS. "Y" THEN GOTO STP2A 
SASSIGN FIL002 . FIL002. 

SGOTO STP2B 
SSTP2A: 

SINQUIRE Dl "Input database file name >> " 

SASSIGN 'Dl' FIL002 . 

SSTP2B: 

$V "" 

SINQUIRE D2 "Does a geometry file already exist for this analysis?(Y/N) » " 

$IF D2 .EQS. "Y" THEN GOTO STP3 
$IF D2 .EQS. "N" THEN GOTO STP4 

A-1 1 

SSTP3: 

$W "" 



SINQUIRE GEOM "What is the name of the existing geometry file? >> " 

SCOPY 'GEOM' TAPE10.DAT 
SGOTO STP4A 

SSTP4: 

$W "" 

SINQUIRE GEOM "Input a name for the geometry file. >> " 

$FILE=F$SEARCH(GEOM) 

$IF FILE . EQS. "" THEN GOTO FD3 
SDELETE 'GEOM';* 

$FD3: 

SSTP4A: 

$U "" 

$W "" 

SINQUIRE MAT "Does a material properties file exist?(Y/N) >> " 

$IF MAT .EQS. "Y" THEN GOTO STP5 
$IF MAT .EQS. "N" THEN GOTO STP6 

SSTP5: 

$W "" 

SINQUIRE MAT "What is the name of the existing material properties file? >> " 
SCOPY 'MAT' TAPE11.DAT 
SGOTO STP6A 

SSTP6: 

$W "" 

SINQUIRE MAT "Input a name for the material properties file. >> " 
$FILE=F$SEARCH(MAT) 

$IF FILE .EQS. "" THEN GOTO FD4 
SDELETE 'MAT';* 

$FD4: 


SSTP6A: 

$define/user sys$input sysScommand 
$ !RUN GSTIFVAX.EXE 

$!RUN UD11: [SCRATCH.E586018.SPANjSP910.EXE 
$RUN curvep.EXE 
$W " " 

$W "ASSEMBLY OF DIAL INPUT RUNSTREAMS COMPLETED" 

$y »•»» 

SINQUIRE SAVE "Would you like to rename the geometry file?(Y/N) >> " 
$IF SAVE .EQS. "N" THEN GOTO STEP6B 
$W "" 

SINQUIRE NG "Input new name for geometry file » " 

SCOPY TAPE10.DAT TAPE10. 

SCOPY TAPE10. 'NG' 

SSTEP6B: 

SCOPY TAPE10.DAT TAPE10. 

SCOPY TAPE10. 'GEOM' 

$W " " 

SINQUIRE SAVE "Would you like to rename the material file?(Y/N) >> " 
$IF SAVE .EQS. "N" THEN GOTO STEP6C 
$W "" 

SINQUIRE NM "Input new name for material file >> " 

SCOPY TAPE11.DAT TAPE11. 

SCOPY TAPE11 . 'NM' 

SSTEP6C: 

SCOPY TAPE11.DAT TAPE11. 

SCOPY TAPE11 . 'MAT' 

$W "" 
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SINQUIRE DEXT "Do you vant to proceed with code execution?(Y/N) >>" 

$IF DEXT .EQS. "N" THEN GOTO CLOSEA 
$W "" 

$W "MESH GENERATION STARTED." 

S@TAPE12A.COM 

$V "MESH GENERATION COMPLETED." 

S@TAPE12B.COM 

$V "BANDWIDTH OPTIMIZATION COMPLETED." 

S@TAPE12C.COM 

$V "MATERIAL PROCESSOR COMPLETED." 

S@TAPE12D.COM 

$W "LOAD PROCESSOR COMPLETED." 

$W "" 

$W " Do you want to C)ontinue solve processor interactively?" 

$V " B)submit as a batch job?" 

$W " P)go to post processor directly?" 

$V " E)exit this module? (option to write CRAY COM file)" 

SINQUIRE SOL "Please select »" 

$IF SOL .EQS. "B" THEN GOTO BATCH 

$IF SOL .EQS. "P" THEN GOTO END1 

$IF SOL .EQS. "E" THEN GOTO CLOSE 

S@TAPE12E.COM 
SGOTO END1 

SBATCH : 

$W "" 

$SUBMIT/NOPRINTER/NOTIFY/QUE=SYS$SLOW TAPE12E . COM 
$V "BATCH JOB SUBMITTED ON QUE SYSSSLOW" 

SGOTO END2 

$!V "AUTOMATIC BATCH PROCESSING NOT IMPLEMENTED AT THIS TIME" 

$!W "USER MUST SUBMIT DIAL SOLVE PROCESSOR IN FILE TAPE12E.COM MANUALLY." 

$!V "THE DIAL DATA BASE GENERATED HERE MUST BE USED OR REGENERATED ON" 

$!W "WHATEVER MACHINE IS CHOSEN FOR BATCH PROCESSING." 

$ ! W "" 

$W "Due you wish to proceed into post processing to view geometry or loads?" 
SINQUIRE PP "(Y/N) » " 

$IF PP .EQS. "N" THEN GOTO END2 

S@PPMOD2.COM 

SGOTO END2 

SENDl: 

$W "" 

$W "Due you wish to proceed into post processing of analysis results?" 

SINQUIRE PP "(Y/N) » " 

$IF PP .EQS. "N" THEN GOTO END2 
S@PPMOD2.COM 

SEND2 : 

$W "" 

SINQUIRE P "Do you want to end this session?( Y/N) >> " 

$IF P .EQS. "Y" THEN GOTO CLOSE 
SIF P .EQS. "N" THEN GOTO STP2B 

SCLOSE: 

SPUR * . OUT 
SCLOSEA: 

$FILE=F$SEARCH( "TAPE10.DAT") 

$IF FILE .EQS. "" THEN GOTO FD10 
SDELETE TAPE10.DAT;* 

SFD10: A-1 3 

$FILE=F$SEARCH( "TAPE 11 . DAT" ) 

SIF FILE .EQS. "" THEN GOTO FD11 



SDELETE TAPE11.DAT;* 

$FD1 1 : 

$FILE=F$SEARCH( "TAPE10 . " ) 

$IF FILE . EQS. "" THEN GOTO FD12 
SDELETE TAPEIO. ;* 

$FD12: 

$FILE=F$SEARCH( "TAPE11 . " ) 

$IF FILE .EQS. "" THEN GOTO FD13 
SDELETE TAPE11.;* 

SFD13: 

SPUR 'GEOM' 

SPUR 'MAT' 

SPUR 'NG' 

SPUR 'NM' 

SPUR ' CNAM ' 

SDEASSIGN FIL002 . 

$W " " 

SINQUIRE CR "Do you want to write a CRAY COM file?(Y/N) » " 
$IF CR .EQS. "Y" THEN GOTO CRAY 
$IF CR .EQS. "N" THEN GOTO NOCR 
SCRAY: 

$V ” ” 

SINQUIRE CNAM "What name would you give the CRAY runstream? » 
$RUN CONVERT . EXE 
SCOPY CRAY.COM 'CNAM' 

$W "" 

SNOCR: 

$W "" 

$W "END OF THIS SESSION FOR CURVED STRINGER STIFFENED PANEL. 

$W "" 


Bye! ! !" 
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A3. 2. 3 TUBULAR TRUSS CORE PANEL MODULE # 3 DRIVER 


$ ! 

$ ! 

$ ! 

$! 

$ ! 

$! 

$! 

$! 

SI 
$ ! 

SI 
$! 

$ ! 

$! 

$! 

SI 
$ ! 

$! — 
$ ST ART: 
$ V : = 
$V "" 

$V " 

$W "" 

$V " 

$W " 

$V " 

$V 


Modified by JTH , LASC, 

from MOD2.COM (8/23/91) by AYW/WMB, LMSC 
Calls TUB212.EXE and P2F20X.COM 


DIALAMATIC 

THIS PROCEDURE IS DESIGNED TO ACT AS THE 
BASIC RUN DRIVER FOR THE TUBULAR STIFFENED 
FLAT SANDVITCH GENERIC MODEL AS PART OF 
DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 


VAX VERSION VI. 3 2-28-92 
AUTHOR: A. Y. VEI AND V. M. 
PHONE: (408) 756-1137 


BROWN LMSC 81-12 


WRITE SYS$OUTPUT 

Generic Model for Flat Rectangular Tubular Panel (TUB) 


MODULE 3 
VAX VERSION 1.3 
February 1992 


$U "BASIC ANALYSIS INFORMATION:" 
$V "" 


SSTPO: 

SINQUIRE DB "Does a DIAL database file exist?(Y/N) » " 

$IF DB . EQS. "Y" THEN GOTO STP1 
$IF DB .EQS. "N" THEN GOTO EXE1 

$STP1 : 

$W "" 

SINQUIRE FN "Is FIL002. the name of the DIAL database file? (Y/N) >> " 

$IF FN .EQS. "Y" THEN GOTO STP1A 

$W "" 

SINOUIRE D1 "What is the name of the DIAL database? >> " 

SCOPY 'Dl' FIL002 . 

SSTP1A: 

$W "" 

SINQUIRE P3 "Is the DIAL solution run done already ? (Y/N)» " 

$IF P3 .EQS. "Y" THEN GOTO END1 

$W "" 

SINQUIRE P2 "Have the DIAL data and geometry check run been done? (Y/N)» 
$IF P2 .EQS. "Y" THEN GOTO STP6A1 

SEXEl : 

$W "" 

SINQUIRE PI "Have the DIAL runstreams been generated? (Y/N)» " 

$IF PI .EQS. "Y" THEN GOTO LAST 

$V "" 

$FILE=F$SEARCH( "TMAT . DAT" ) 

SIF FILE .EQS. "" THEN GOTO STP21 
SRENAME TMAT . DAT TMATK.DAT 
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$y "TMAT.dat was renamed as TMATK.dat" 


SSTP21: 

$w "" 

$FILE=F$SEARCH( "TGEOM . DAT" ) 

$IF FILE . EQS. "" THEN GOTO STP22 
SRENAME TGEOM.DAT TGEOMK.DAT 
$U "TGEOM.dat was renamed as TGEOMK.dat" 

SSTP22: 

$U "" 

SINQUIRE D2 "Does a geometry input file exist for this analysis? (Y/N) » " 
$IF D2 .EQS. "Y" THEN GOTO STP3 
$IF D2 .EQS. "N" THEN GOTO STP4 

$STP3 : 

$V M M 

$V "What is the name of the existing geometry file? " 

SINQUIRE GEOM "Do not use TGEOM or TGEOM.DAT >> " 

SCOPY 'GEOM' TGEOM.DAT 
SGOTO STP4A 

SSTP4: 

$y "" 

$W "Input a name for the geometry file." 

SINQUIRE GEOM "Do not use TGEOM or TGEOM.DAT » " 

SSTP4A: 

$W "" 

SINQUIRE D3 "Does a material properties input file exist? (Y/N) » " 

$IF D3 .EQS. "Y" THEN GOTO STP5 
$IF D3 .EQS. "N" THEN GOTO STP6 

SSTP5: 

$y nn 

$W "What is the name of the existing material properties file? " 

SINQUIRE MAT "Do not use TMAT or TMAT.DAT » " 

SCOPY 'MAT' TMAT.DAT 
SGOTO EXE2 

SSTP6: 

$V "" 

$W "Input a name for the material properties file. 

SINOUIRE MAT "Do not use TMAT or TMAT.DAT » " 

SEXE2: 

$define/user sys$input sys$command 

$y II II 

$y " Starting to run TUB.EXE ..." 

$RUN UD11 : [SCRATCH.E586018.TUBJTUB212.EXE 
$W "" 

$y " The DIAL runstreams were generated - end of TUB.EXE. " 

$! 

$FILE=F$ SEARCH ( " TM AT . DAT " ) 

$IF FILE .EQS. "" THEN GOTO GE01 
$W "" 

SINQUIRE P "Do you want to assign a new material data file name? (Y/N) » " 
$IF P .EQS. "N" THEN GOTO MATO 

SINQUIRE MAT "The new material data file name is :» " 

SMATO: 
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SINQUIRE P2 "Did you change material data? (Y/N) » " 
$IF P2 . EQS . "N" THEN GOTO MAT1 
SCOPY TMAT.DAT 'MAT' 

SGOTO MAT2 
SMATl: 

$IF P .EQS. "Y" THEN COPY TMAT.DAT. 'MAT' 

$MAT2 : 


$W "" 

$DEL TMAT.dat ; * 

$V "The TMAT.dat file was deleted. " 

$W "" 

$W "Your designated material file was not 

$! 


purged. 




SGEOl: 

$FILE=F$SEARCH( "TGEOM. DAT" ) 

$IF FILE .EQS. "" THEN GOTO LAST 
$W "" 


SINQUIRE P "Do you want to assign a new geometry data file name? (Y/N) >> 
$IF P .EQS. "N" THEN GOTO GEOO 

SINQUIRE GEOM "The new geometry data file name is: >> " 

SGEOO: 


SINQUIRE P4 "Did you change geometry data? (Y/N) >> " 
$IF P4 .EQS. "N" THEN GOTO GE01A 
SCOPY TGEOM.DAT 'GEOM' 

SGOTO GE02 
SGEOIA: 

$IF P .EQS. "Y" THEN COPY TGEOM.DAT. 'GEOM' 

SGE02 : 


$V "" 

$DEL TGEOM.dat ;* 

$W "The TGEOM.dat file was deleted. " 

$W "" 

$U "Your designated geometry file was not purged. 

$ — - 


SLAM : 

$V "" 

SINOUIRE P "Have the DIAL runstreams been executed? (Y/N) >> " 

SIF P .EQS. "Y" THEN GOTO STP6A1 

$W "" 

SINOUIRE P "Do you want to execute the DIAL runstreams? (Y/N) » " 
$IF P .EQS. "N" THEN GOTO END2 

$ ! 

$W "" 

$W "The DIAL runstreams are being executed. " 

$V "" 

S@TMESH.COM 

$V "MESH GENERATION COMPLETED." 

S@TBSET.COM 

$W "BANDWIDTH OPTIMIZATION COMPLETED." 

S@TMAT.COM 

$U "MATERIAL PROCESSOR COMPLETED." 



S@TL0AD.COM 

$W "I HAD PROCESSOR COMPLETED." 

SSTP6A1 : 

<;y mi 

$W "Do you want to REVIEW the DIAL INPUTS and PLOTS " 

SINQUIRE P "before the SOLUTION run? (Y/N) » " 

$IF P . EQS . "N" THEN GOTO STP6A2 
$@UD1 1 : [ SCRATCH . E586018 . TUB ] p2 f 20x . COM 

$STP6A2: 

$y »* *' 

SINQUIRE P "Do you want to execute DIAL for a solution? (Y/N) » " 
$IF P .EQS. "N" THEN GOTO END2 
$1 


SEXEA: 

$W "" 

$W "Do you wish to call the SOLVE processor now or submit as a batch job 
SINQUIRE SOL "Type C to solve now; type B to submit as a Batch job » " 
$IF SOL .EQS. "B" THEN GOTO BATCH 
S@TSOLVE.COM 
SGOTO END1 

SBATCH: 

$y « ii 

$W "AUTOMATIC BATCH PROCESSING NOT IMPLEMENTED AT THIS TIME" 

$V "USER MUST SUBMIT DIAL SOLVE PROCESSOR IN FILE TLOAD.COM MANUALLY." 

$W "THE DIAL DATA BASE GENERATED MUST BE USED OR REGENERATED ON" 

$V "WHATEVER MACHINE IS CHOSEN FOR BATCH PROCESSING." 

$! 

SENDl: 

$V " M 

$W "DO YOU WANT TO PROCESS the ANALYSIS RESULTS?" 

SINQUIRE PP "(Y/N) » " 

$IF PP .EQS. "N" THEN GOTO END2 
$@UD11 : [ SCRATCH . E586018 . TUB ] p2 f 20x . com 

$ ! 

SEND?.: 

$W "" 

$W " Do you want to give the DIAL database file FIL002." 

SINQUIRE P " a new file name? (Y/N) >> " 

$IF P .EQS. "N" THEN GOTO END2A 

SINOUIRE D1 "Input the new DIAL database file name : >> " 

SRENAME FIL002. 'Dl' 

SPUR 'Dl' 

$W "The DIAL database file FIL002. has been renamed as you wanted." 
SGOTO END2B 

$y ii ii 

SEND7.A: 

$W "The DIAL database is still stored in file FIL002." 

SEND2B: 

$W " " 

SINQUIRE P "Do you want to end this session?(Y/N) >> " 

$IF P .EQS. "Y" THEN GOTO STP7 
$W "" 

$W "OK, you want to preprocess another tubular panel problem." 

$IF P .EQS. "N" THEN GOTO STPO 



$STP7 : 

$U "" 

$W "END OF THIS SESSION. Bye!!!" 
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##### 


A. 3. 2. 4 GEODESIC CURVED STIFFENED PANEL MODULE # 4 DRIVER 

$1 

$ ! DIALAMATIC 

$! 

$! THIS PROCEDURE IS DESIGNED TO ACT AS THE 
$ ! BASIC RUN DRIVER FOR THE GEODESICALLY STIFFENED 
$ ! CURVED GENERIC MODEL AS PART OF 
$! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 
$! 

$ ! VAX VERSION VI . 1 12-4-90 

$ ! AUTHOR: A. Y. VEI AND V. M. BROUN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$! 

$ ! ################################################################### 

$ START: 

$ V := WRITE SYS$OUTPUT 
$V "" 

$U " 

$W " Generic Model for Geodesically Reinforced Cylindrical Panel" 

$W M M 

$U " MODULE 4 

$V " VAX VERSION 1.1" 

$V "" 

$V "" 

$W "BASIC ANALYSIS INFORMATION:" 

$v M M 

SINQUIRE DB "Does a DIAL database file exist?(Y/N) Default is FIL002. » " 
$IF DB .EQS. "Y" THEN GOTO STP1 

$IF DB .EQS. "N" THEN GOTO STP2 

$STP1 : 

$V " " 

SINQUIRE D1 "What is the name of the DIAL database? » " 

SASSIGN 'Dl' FIL002 . 

SGOTO END1 

SSTP2: 

$W "" 

SINQUIRE D2 "Does a geometry file already exist for this analysis?(Y/N) » " 
$IF D2 .EQS. "Y" THEN GOTO STP3 

$IF D2 .EQS. "N" THEN GOTO STP4 

SSTP3: 

$U "" 

SINQUIRE GEOM "What is the name of the existing geometry file? >> " 

SASSIGN 'GEOM' GEOM 
SGOTO STP4A 

SSTP4: 

$V "" 

$W "Input a name for the geometry file. 

SINQUIRE GEOM "Do not use GEOM or GEOM . DAT » " 

SASSIGN 'GEOM' GEOM 
SSTP4A: 

SINQUIRE MAT "Does a material properties file exist?(Y/N) >> " 

$IF MAT .EQS. "Y" THEN GOTO STP5 
$IF MAT .EQS. "N" THEN GOTO STP6 


SSTP5: 

$W "" 

SINQUIRE MAT "What is the name of the existing material properties file? » 


M 
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SASSIGN 'MAT' MAT 
$GOTO STP6A 


$STP6: 

$W "Input a name for the material properties file. 

SINQUIRE MAT "Do not use MAT or MAT. DAT » " 

SASSIGN 'MAT' MAT 

SSTP6A: 

$define/user sysSinput sysScommand 
$RUN geo.exe 
$W "" 

SW "CREATION OF DIAL RUNSTREAMS COMPLETED, MESH GENERATION STARTED." 
$@FMESH.COM 

$W "MESH GENERATION COMPLETED." 

S@FBSET.COM 

$W "BANDWIDTH OPTIMIZATION COMPLETED." 

S@FMAT.COM 

$W "MATERIAL PROCESSOR COMPLETED." 

S@FLOAD.COM 

$V "LOAD PROCESSOR COMPLETED." 

$V "" 

$W "Do you wish to enter the solve processor now or submit as a" 

SINQUIRE SOL "batch job? (Continued, Batch job=B) » " 

$IF SOL . EQS. "B" THEN GOTO BATCH 

S@FSOLVE.COM 

SGOTO END1 

SBATCH: 

$W "" 

$W "AUTOMATIC BATCH PROCESSING NOT IMPLEMENTED AT THIS TIME" 

$V "USER MUST SUBMIT DIAL SOLVE PROCESSOR IN FILE FLOAD.COM MANUALLY." 

$W "THE DIAL DATA BASE GENERATED MUST BE USED OR REGENERATED ON" 

$V "WHATEVER MACHINE IS CHOSEN FOR BATCH PROCESSING." 

$y "" 

$y "DUE YOU WISH TO PROCEED INTO POST PROCESSING TO VIEW GEOMETRY OR LOADS?" 
SINQUIRE PP "(Y/N) » " 

$IF PP .EQS. "N" THEN GOTO END2 

$@PPM0D3.C0M 

SGOTO END2 

SENDl : 

$W "" 

$W "DUE YOU WISH TO PROCEED INTO POST PROCESSING OF ANALYSIS RESULTS?" 
SINQUIRE PP "(Y/N) » " 

$IF PP .EQS. "N" THEN GOTO END2 
S@PPMOD3.COM 

SEND2 : 

$V "" 

SINQUIRE P "Do you want to end this session? (Y/N) » " 

$IF P .EQS. "Y" THEN GOTO STP7 
$IF P .EQS. "N" THEN GOTO STP6 

SSTP7: 

$FILE=F$SEARCH( "MAT. DAT" ) 

$IF FILE .EQS. "" THEN GOTO GEOM 
SDELETE MAT. DAT;* 

SGEOM: 

$FILE=F$SEARCH( "GEOM . DAT" ) 

$IF FILE .EQS. "" THEN GOTO LAST 
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SDELETE GEOM.DAT;* 

SLAST: 

SDEASSIGN FIL002 . 
SDEASSIGN MAT 
SDEASSIGN GEOM 
$V " " 

$W "END OF THIS SESSION. 


Bye! ! ! " 
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A3. 3.1 FLAT STIFFENED PANEL MODULE # 1 PROGRAM 


C 9/11/91 9/10/91, 3671+4+10 lines, SP910.FOR, from Tony Wei, 9/09/91 
C 

PROGRAM GBINP 

common /mesh/ M , N , MI , NI , AX, BY , A( 1 0 ) , B( 10 ) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI ( 3 , 1 0 , 5 ) , G1 ( 3 , 1 0 , 5 ) , A1 ( 3 , 1 0 , 5 ) , 

1 SS (12,10, 5) , NT( 1 0 ) , NAME 

c . . .1T1(10,5) ,SXT( 10,5) ,SXC( 10,5), SYT( 10,5) ,SYC( 10,5) ,SS( 10,5) ,NT( 10) 
common /wall/ NLAY , MWC 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY( 4 ) , MS( 30 , 4 ) , TS( 30 , 4 ) , PS( 30 , 4 ) 
common /load/ LARG, LEND , LRIB , LRBC, LEBC, LSBC, LT0T,FL(4) 
common /solve/ NBUC , TAR , NDF , ND , MO 
c ... xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c X Advanced Compostie Structural Program Input * 

c X PROBLEM 1A: Laminated flat panel w/ SECAUT Beam X 

c x x 

c X variables definition ... X 

c X X 

c x [ Geometry data ] * 

c x M = numbers of axial stiffeners x 

c X N = numbers of lateral ribs X 

c X MI= numbers of sub-grid between stiffeners X 

c X NI = numbers of sub-grid between ribs X 

c X A = axial stiffen er distances (M+2) X 

c X B = lateral rib distances (N+2) X 


c 

X 

MSET 1: STF1 



X 

c 

X 

MSET 2: STF2 



X 

c 

X 

MSET n: STFn 



X 

c 

X 

MSET 10: BASE 



X 

c 

X 




X 

c 

X 

yalO: read tapelO 



X 

c 

X 

yall: read tapell 



X 

c 

X 

nalO: input data for 

the 

new tapelO 

X 

c 

X 

nail: input data for 

the 

new tapell 

X 

c 

X 

flisO: list tapelO 



X 

c 

X 

f lisl : list tapell 



X 

c 

X 

f mody : modify input 

data 


X 

c 

X 

f save : update tapelO 

, tapell 

X 

c 

X 

fquit: quit and end 



X 

c 

X 




X 

c 

X 

PROGRAMMED by Lloyd 

Chou 

81-12 MSD 

X 

c 

X 

DATED December 5, 1990 

ext .6-3075 

X 

c 

X 

UPDATED by Tony Wei 


81-12 MSD 

X 

c 

X 

6/28/91 


ext. 6-1137 

X 

c 

X 




X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
LOGICAL herel 0 , herel 1 , herel2 
CHARACTER NAMEX80 
dimension NAMEC10) 

checking input data for DIAL F.E. structural analysis 
initialize geometry ( tapel 0 ) and material ( tapel 1 ) files 


inquireC f ile= * tapel 0 1 , exist=herel 0 ) 
inquireC f ile= • tapel 1 1 , exist=herel 1 ) 
if (herelO) then 
call yalO 
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else 


call nalO 
endif 

if (herell) then 
call yall 

else 

call nail 
endif 


call flist 


close ( uni t=l 0 ) 
close( unit=l 1 ) 


open ( uni t= 10 , st at us= ’unknown 1 , f ile= • tape 10 1 ) 
open ( unit = 1 1 , status= • unknown 1 , f i le= 1 tape 1 1 * ) 
call fsave 


c ### 

c # end of main program 

c #*# 

STOP 

end 

SUBROUTINE NEWPAGE 
do 1 1=1,24 

1 write(6 , 1 ( # 1 1 ' ) 1 ) 
writeC 6 , 2 ) 

2 f ormat ( /3x , ' *x*****x****x**x*x***xx*x**xx*******x****xxx#x*xxx ■ , 

1 /3x,*X Advanced Composite Structural Program by LMSC X f , 

2 /3x,'x Flat Stiffener Panel : Revision 1.2, 6/28/91 **, 

3 /3x , 1 *****3t*******56****9t******9C3t**X*9ejf9f*je*36Jeje**K*«**** ■ ) 
return 

end 

SUBROUTINE QUIT 
write(6 , 1 ) 

I f ormatC //5x , 1 »KK********i(***«*****3Hf*«*JfJf***3Hf* f , 

1 /5x, f * No Modification, Exiting Module! 

2 /5x , • * ) 

STOP 

end 

SUBROUTINE yalO 

common /mesh/ M , N ,MI , NI , AX , BY , A( 1 0 ) , B( 10 ) , NGRID 

common- /matl/ NMAT , El C 3 , 10 , 5) , VI ( 3 , 10 , 5) ,G1(3 , 10 , 5) , A1 ( 3 , 10 , 5) , 

1 SS(12,10,5),NT(10) , NAME 

common /wall/ NLAY,MW(30 ) ,TW(30) ,PW(30) 

common /secb/ MTYP , XH , XB , XC , XT ,MLAY( 4) ,MS(30,4) ,TS(30,4) ,PS(30,4) 
common /load/ LARG, LEND , LRIB , LRBC, LEBC, LSBC, LT0T , FL( 4) 
common /solve/ NBUC,TAR, NDF , ND ,M0 

c ... 

c . read tapelO 
c ... 

character NAMEK60 
dimension NAMEC10) 

open (uni t-10 ,status= 'old 1 ,file= 1 tapelO f ) 

II formate 415 , 2F10 . 0) 

12 format (8F1 0 . 0 ) 

13 format(6I5) 

14 format( 4F12 . 0 ) 

15 f ormat(4i3,f 10 . 5) 

read( 10,11) M , N ,MI , NI , AX , BY 
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M2 = M+2 
N2 = N+2 

readC 10,12) ( A( I ) , 1=1 ,M2) 
read(10,12) ( B( I ) , 1=1 , N2) 

c ... 

readC 10,13) LEND , LRIB , LRBC , LEBC , LSBC , LTOT 

read( 10,14) e FL( I ) , 1=1 , 4 ) 

readC 10,15) NBUC , NDF , ND , MO , TAR 

return 

end 

c ... 
c ... 

SUBROUTINE yall 

common /mesh/ M, N,MI , NI , AX, BY, AC 10) , B( 10) , NGRID 

common /matl/ NMAT ,E1 ( 3, 10 , 5) , VI (3 , 1 0 ,5) ,G1 (3 , 10 ;5) ,A1C3,10,5) , 

1 SS(12,10,5),NT(10) ,NAME 

common /wall/ NLAY,MWC30),TWC30) , PVK 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC 4 ) , MS( 30 , 4 ) , TS( 30 , 4 ) , PSC 30 , 4 ) 
common /solve/ NBUC, TAR , NDF , ND , MO 

c ... 

c . read tapell 

c ... 

character NAME*80 
dimension NAME(IO) 

open ( uni t= 11 , status= f old* , file* ' tapell 1 ) 

11 formate 91 5 ) 

12 formatC 6F12 . 0 ) 

13 formate I5,2F10.0) 
readC 11,11) NMAT 
do 110 1=1, NMAT 

J = 1 

readC 1 1,12) eEKK, I , J) ,K=1 ,3) , ( VI CK , I , J) ,K=1 ,3) 
reade 11,12) eGl(K , I , J) ,K=1 ,3) , ( A1 CK , I , J) ,K=1 ,3) 
readC 1 1 , 12) C SSCK , I , J) ,K = 1 ,6) 

110 reade 11,12) e SSe K , I , J ) ,K=7 , 12) 
c ... 

reade 11,11) NLAY 
do 120 1=1, NLAY 

120 reade 11,13) MWe I ) , TWe I ) , PWe I ) 
reade 11, 11) MTYP 
reade 11,12) XH,XB,XC,XT 
if eMTYP.eq.l .or .MTYP.eq.5) then 
IP=2 

elseif eMTYP . eq . 2) then 
IP=4 
else 
IP=3 
endif 

do 130 1 = 1, IP 
reade 11,11) MLAYei) 
do 130 J=l, MLAYei) 

130 reade 11, 13) MSe J , I ) ,TSe J , I ) , PSe J , I ) 
return 
end 

c ... 
c ... 

SUBROUTINE nalO 

common /mesh/ M,N,MI ,NI ,AX,BY, AI 10) , Be 10) ,NGRID 

common /matl/ NMAT , El e 3 , 1 0 , 5 ) , VI e 3 , 10 ,5) , G1 e 3 , 10 , 5) , AH 3, 10 ,5) , 

1 SSei2,10,5),NTei0) , NAME 
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common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ MTYP , XH , XB, XC , XT ,MLAY( 4) ,MS(30 ,A) ,TS( 30 ,«) ,PS( 30 , A) 

common ./load/ LARG , LEND , LRI B , LRBC, LEBC, LSBC, LTOT ,FL( A) 

common /solve/ NBUC,TAR,NDF,ND,MO 

dimension ra( 10) ,ia(10) ,NAME( 10) 

character ans*l ,NAME*80 

c ... 

c . create input for tapelO 

c ... 
c ... 

11 f ormate 2x ,' Input Panel Width and Length >> ( * , 2F8 . 3 , * ) > * $ ) 

12 formate2x, 'Input No. of Stiffeners and Ribs >>( * ,213, 1 )> *$) 

13 f ormate 2x ,' Input No. of Sub-Grid between Stif/Rib >>( 1 ,212 , * )> 1 $) 

14 formate 2x , 'Input • ,12, ' Axial Stiffener locations >>'$) 

15 forma t( 2x , ’Input 1 ,12, ' Lateral Rib locations >>*$) 

20 formate2x,' Boundary Condition Definition ') 

21 formate 2x, ' Should it represent a part of a much large* , 

1* panel?e Y/N)>>eN)> 1 $ ) 

22 f ormate 2x, 1 Are there ribs at Ends ?e Y/N)>>e Y)> * $ ) 

23 formate2x, ’Ribs on:(l)Skin e2)STIF C3)Both ?»C1)>’$) 

24 f ormate 2x ,' Choose a B.C. Type no. at Ribs:* 
l/10x,*ei> Simply Supported; e2) S.S. and Rotation; *, 

2 * ?>>ei)>'$) 

25 formate 2x , 'Choose a B.C. type no. at Ends:*, 

*/10x,*ei) Part of a Larger Panel', 

*/10x,'e2) Free', 

l/10x, ' e 3 > Simply Supported', 

3/10x, ' e4) Semi-Clamped- 1 eaxial & lateral free)*, 

4/10x,*e5) Semi-Clamped-2 eaxial only free)*, 

5/10x,*e6) Fully Clamped eall DOF fixed) >>(!)>'$) 

26 f ormate 2x ,' Choose a B.C. type no. at Sides:', 

*/10x,'ei) Part of a Larger Panel*, 

*/10x,'e2) Free', 

1/I0x,'e3) Simply Supported*, 

3/10x, ' e4) Semi-Clamped- 1 eaxial & lateral free) 1 , 

4/10x,*e5) $emi-Clamped-2 eaxial only free)*, 

5/10x,*e6) Fully Clamped eall DOF fixed) ---»(2)>*$) 

30 formate2x,* Loading Condition Definition *) 

31 formate2x, 'Choose input loads type (Total=l , Line=2) * , 
c ’?>>e2)>'$) 

32 formate 5x, 'following total load unit : lb*) 

33 f ormate 5x ,' fol lowing line load unit: lb/in') 

34 formate 7x ,' Input axial load >>(*, F8 . 1 ,')>*$ ) 

35 formate7x, 'Input lateral load »(* ,F8 . 1 ,*)>*$ ) 

36 f ormate 7x ,' Input shear load along ends >>( ' , F8 . 1 ,')>*$ ) 

37 formate 7x, ' Input lateral pressure in psi >> * , F8 . 2, * )>*$) 

38 formate2x,' Type of Analysis *) 

c ... 

call NEWPAGE • 
rae 1)=10. 
raC 2 ) = 1 0 . 

writee6,ll) raCl),rae2) 
call NREALC2,ra) 

AX=raei) 

BY=rae 2 ) 

iaei)=2 

iaC2)=l 

writee 6 , 12) iaei),iae2) 
call NINTGe2,ia) 

M=iaei) 
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N=ia( 2 ) 
ia( 1 ) = 2 
ia(2)=2 

write(6, * (2x, ' ’Does the user want to specify Panel Sub-divisions 7 
*(Y/N) • • ) • ) 

write(6 ,' (2x, ' 'Enter »•'$)•) 
call STITLE(ans) 

if (ans .eq. 'N' .or. ans .eq. *n') then 
write(6,*)' ' 

wr ite( 6 , 1 ( 2x Sub-Grid Between Stiffeners are 2. ,, ) , ) 
write (6 , ' (2x , * • Sub-Grid Between Ribs are 3 ' ’)•) 

MI = 2 
NI = 3 

elseif (ans .eq. *Y* .or. ans . eq . 'y') then 
write( 6 , 13) ia(l),ia(2) 
call NINTG(2,ia) 

MI=ia( 1 ) 

NI=ia(2) 
endif 
A( 1 ) = 0 . 

B( 1 )=0 . 

DA = AX/CM+l) 

DB = BY/CN+l) 

do 1 1=1, M+l 

1 A( 1+1 ) = DA * I 

do 2 1=1, N+l 

2 BCI+l) = DB * I 

write( 6 , ' ( 5x , ' * Stif f eners equally spaced (Y/N) 7 >>(Y)> ,, $)*) 

ans= *Y* 

call STITLE(ans) 

if (ans .eq. 'Y* .or. ans .eq. ’y*) go to A 
write(6,lA) M 
call NREAL(M,ra) 
do 3 1=1, M 

3 A( 1+1 ) = ra( I ) 

4 A( M+2) = AX 

write(6 , ' ( 5x, ' ' Ribs equally spaced (Y/N)? >>(¥)>•*$)•) 
ans= *Y' 

call STITLE(ans) 

if (ans .eq. *Y* .or. ans .eq. 'y') go to 6 
write(6,15) N 
call NREAL(N.ra) 
do 5 1-1, N 

5 B(I+1) = rad) 

6 B( N+2) = BY 

write( 6 ,20) 

50 write(6,22) 

ans='Y* 

LEMD=1 

call STITLE(ans) 

if (ans .eq. 'Y* .or. ans .eq. ’y*) go to 55 
LEND=2 

55 write(6,23) 

ia(l)=l 

call NINTG(l,ia) 

LRIB=ia(l) 
write(6,24) 
ia( 1 ) = 1 

call NINTG(l,ia) 
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LRBC=ia( 1 ) 
writeC 6 , 25 ) 
ia( 1 )=1 

call NINTGd, ia) 

LEBC=ia( 1 ) 
wr ite ( 6,26) 
ia( 1 )=2 

call NINTGd, ia) 

LSBC=ia( 1 ) 

c ... 

write( 6,30) 
write( 6,31) 
ia( 1 )=2 

call NINTGd ,ia) 

LT0T=ia( 1 ) 

if (LTOT .eq. 1) write(6,32) 
if (LTOT .ne. 1) write(6,33) 
ra(l)=1000. 
write(6,3A) rad) 
call NREAL d , ra) 

FL (1 ) =ra( 1 ) 
ra( 1 ) =0 . 

write(6,35) ra(l) 
call NREAL(l.ra) 

FL(2)=ra(l) 
ra( 1 )=0 . 

write(6,36) rad) 
call NREALC1 ,ra) 

FL(3)=ra(l) 
ra( 1 ) =0 . 

write(6,37) rad) 
call NREALC1, ra) 

FL( A)=ra( 1) 

c Solve Strategy 

writeC 6 ,38) 

writeC 6,' (•' Choose ONE of the following type of analysis>> ' ' ) ' ) 

write(6,'(" 1> Linear Analysis . ,, ) , ) 

write(6 , ' ( " 2> Bifurcation Buckling Analysis.")') 

write(6, , (" 3> Post-Buckling Analysis.")') 

write(6,'(" Enter »"$)') 

call NINTGd, NBUC) 

NDF=0 
ND=0 
TAR=0 . 

M0=10 

if (NBUC.eq.3) then 

c Caution message about the Post Buckling Technique 

write(6 , ' ( ' ' Type of Target Point ?»'•)') 
write(6 , ' ( ' ' 0> Load Factor.")') 

write(6,'(" l-6> Displacement DOF.")') 

write( 6 , ' ( ' ' Enter>>"$)') 

call NINTGd, NDF) 
if (NDF .gt . 0) then 

write(6,'(" Enter Node Number »"$)') 
call NINTGd, ND) 
endif 

write(6,'(" Target Point Value = "$)*) 
call NREALd ,TAR) 
elseif (NBUC .eq. 2) then 

write(6,'(" How many MODE shape(s) do you want (Max. 50)? »* 
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*•$)’) 

call NINTGC 1 ,M0) 
write(6,*)' 1 
endif 
return 
end 

c ... 
c ... 

SUBROUTINE nail 

common /mesh/ M,N,MI,NI,AX,BY,AeiO),BeiO),GRID 

common /matl/ NMAT ,E1 C 3, 10 , 5) , Vl(3, 10 , 5) ,61 (3, 10 ,5) . Al( 3, 10, 5) , 

1 SS(12,10,5),NT(10) , NAME 

common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ MTYP , XH , XB , XC , XT ,MLAY( A) , MS( 30 , A) , TS( 30 , A) ,PS( 30 , A ) 
common /solve/ NBUC , TAR , NDF , ND ,M0 
dimension ra(10) , iaC 1 0 ) , NAME( 10) 
character ans*l , NAME*80 

c ... 

c . create input for tapell 

c ... 

11 format(2x, ' Input No. of Materials »(', 12, ')>'$) 

13 format(2x, * Input Matl#', 12,' Elastic 8 Shear Modulus,', 

1 ' Poison #, AML +/- Allowables') 

1A format( 5x , ' El , E2 ,E3 »( ’ ,3E9.2, • )>'$) 

15 format(5x, 'G12,G23,G31 >>( ' , 3E9 . 2, • )> • $ ) 

16 format(5x, 'V12,V23,V31 >>( ' , 3F9 . A , • )> 1 $ ) 

17 formate 5x , ' + Allow .>> (. ', 3e F5 . 1 , F7 . 3) ,')>•$ ) 

18 format e 5x , ' - Allow. >>e ', 3e F5 . 1 , F7 . 3) ,')>•$ ) 

19 formate2x , ' »> 

c ... 

20 f ormate 2x, • Input No. of plies for the basic panel >>e • ,12, • )> •$) 

21 formate5x, 'Input Matl#, Thickness, Angle') 

22 format e5x, 'Ply#' ,12, ’>>! ' , 12, F7 . A,F7 . 2 , ' )> • $ ) 

28 formate2x, 'Stiffener Type: DBlade, 2)Close Hat, 3)I-shape, A 
1) J-shape, ' ,/18x, '5)Angle, 6)Zee, 7)Bead, 8) Open Hat.') 

29 formate5x,' Select axial stiffener type >>e ' , II , • )> ’ $) 

30 formate5x, • Input XH,XB,XC,XT >>e • , AF6 . 3 , ')>'$) 

31 formate2x, 'Input No. of plies for stiffener ELEM #', II, •>>(', 

1 12 ,')>*$ ) 

32 formate5x, • Input XH,XB,XC >> e ', 3F6 . 3 ,')>•$ ) 

33 formate5x, ' Input XH,XB >>e '2F6 . 3, • )> ' $ ) 

3A f ormate 5x, ' Input XH,XB,XT >>e ' 3F6 . 3, • )> '$ ) 
c . . . 

write(6 , 19 ) 
ia( 1 )=1 

write( 6,11) ia(I) 
call NINTGC 1 , ia) 

NMAT=iaC 1 ) 

J=1 

do 110 1=1, NMAT 
writeC 6 ,13) *1 
ra( 1 )=30 . E6 
ra(2)=ra(l) 
ra(3)=ra( 1 ) 

writeC 6 , 1 A ) (ra( II ) , 11 = 1 , 3) 
call NREALC 3 , ra) 
do 101 K=1 ,3 
101 El CK , I , J) = ra(K) 
c ... 

ra(l )=11 . 5E6 
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ra(2)=raCl) 

ra(3)=ra(l) 

write(6*15) ( rat II ) , II = 1 » 3) 
call NREAL(3,ra) 
do 102 K=1 , 3 

102 61(K,I,J) = raCK) 

ra( 1 ) =0 . 30A35 
ra(2)=ra( 1 ) 
ra( 3) =ra( 1 ) 

writeC 6,16) ( raC II ) > II = 1 > 3) 
call NREAL ( 3 , ra) 
do 103 K=l,3 

103 VICK, I, J) = ra(K) 

ra( 1 )=-60 . 
ra(2)=0 . 001 
ra(3)=0 . 
ra( A)=0 . 002 
ra( 5) =60 . 
ra( 6 ) =0 . 003 

writeC6, , ('' Do you want to input AML Failure Parameters (Y/N)?''? 
*) • ) 

call STITLE(ans) 

if C ans .eq. *Y* .or. ans .eq. 'y' ) then 
write( 6 , 17 ) ( ra( II ) # I I = 1 #6) 
call NREAL(6,ra) 
endif 

do 10A K = l,6 

104 SS(K,I,J) = ra(K> 

ra(l)=-60. 

ra(2)=-0 . 002 

ra(3)=0. 

ra(4)=-0.003 

ra<5)=60. 

ra(6)=-0.004 

if ( ans .eq. 'Y* .or. ans .eq. *y' ) then 
writeC 6 > 18) (ra(II) ill = l >6) 
call NREALC 6 , ra) 
endif 

do 105 K=7 , 12 
KK=K-£ 

105 SSCK , I , J) = ra(KK) 

110 continue 

write( 6 , 19) 


ia( 1 )=2 

write(6,20) ia(l) 
call NINTG(l,ia) 

NLAY=ia(l) 

write(6,21) * 

write(6,*)' ' 

writeC 6 , ' (2x j ' 'Are the information the same for ALL plies (Y/N)? 
*$)•) 

call STITLE(ans) 

if ( ans .eq. *Y* -or. ans .eq. 'y' ) then 
ia( 1 ) = 1 
ra(2) = 0.1 
ra(3) = 0.0 
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I = 1 

wri te( 6 , 22) I, ia(l), ra(2), ra(3) 
call NREAL ( 3, ra) 
iaCl) = intCra(l)) 

MW(l) = ia( 1 ) 

TW( 1 ) = ra( 2) 

PW(1) = ra( 3 ) 
do 119 i=2,NLAY 
MW( i ) =mw( 1 ) 
tw(i)=tw(l) 
pw( i )=pw( 1 ) 

119 continue 
else 

do 120 1=1 , NLAY 
ia( 1 ) = 1 
raC 2) = 0 . 1 
ra( 3)=0 . 0 

if (I .eq. 1) ra(3)=-45. 
if (I .eq. 2) ra( 3 )= 45. 
writeC 6 , 22 ) I , ia( 1 ) , ra( 2) ,ra( 3) 
call NREAL ( 3 , ra) 
iaCl) = int(raCl)) 

MW( I ) = iaCl) 

TW( I ) = ra C 2) 

120 PW(I) = ra( 3) 
endif 

write(6,19) 
ia( 1 ) = 1 
write(6,28) 
wri te( 6 , 29 ) ia(l) 
call NINT6C 1 , ia) 

MTYP=ia( 1 ) 

ra( 1 ) = 0 . A 

ra(2)=0 . 5 

raC 3) = 0 . 35 

ra( 4 ) =0 . 25 

if (HTYP.eq.l) then 

writeC 6 , 32) ra( 1 ) , ra( 2) , ra( 3 ) 
call NREAL ( 3 , ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

XC=ra(3> 

elseif ( MTYP . eq . 5 . or . MTYP . eq . 7 ) then 
writeC 6,33) ra(l),ra(2) 
call NREALC2 ,ra) 

XH=ra(l) 

XB=ra( 2) 

elseif (MTYP.eq.6) then 
write (6,34) XH,XB,XT 
call NREALC 3 ,ra) 

XH=ra( 1 ) 

XB=ra( 2) 

XT=ra( 3 ) 
else 

write (6, 30) ra( 1 ) ,ra(2) ,ra(3) ,ra(4) 
call NREAL(4,ra) 

XH=ra( 1 ) 

XB=ra( 2) 

XC=ra(3) A-31 
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c . . 


XT = ra( 4 ) 
endif 

if ( MTYP . eq . 1 . or . MTYP . eq . 5 ) then 
IP = 2 

elseif (MTYP.eq.2) then 
IP = 4 
else 
IP = 3 
endif 

do 130 1 1 = 1 , IP 
wri te( 6 , 19 ) 
ia( 1 ) =2 

wri teC 6 ,31 ) Il,iaCl) 
call NINTG(l,ia) 

MLAYC II )=ia( 1 ) 
wri te( 6 , 21 ) 
wri te( 6 , *) 1 ’ 

writeC 6 , • C 2x, * ’Are the information the save for ALL plies CY/N)?' 1 
*$)') 

call STITLECans) 

if ( ans .eq. , Y* .or. ans .eq. f y f ) then 
ia( 1) = 1 
ra ( 2 ) = 0 . 1 
ra( 3 ) =0 . 0 
i= 1 

write(6,22) i ,iaCl) ,raC2) f ra(3) 
call NREAL C 3 , ra) 
ia(l) = intCraCl)) 

MSC 1 , I 1 ) = ia( 1 ) 

TSC 1 , 1 1 ) = ra( 2 ) 

PSC1,I1) = ra( 3) 
do 131 i=2,mlayC II ) 
msCi,il)=msCl,il) 
tsC i , il ) = tsC 1 , il ) 
psCi ,il )=ps(l ,il) 

131 continue 
else 

do 132 1=1 ,MLAYC Il ) 
ia( 1 ) = 1 . 
ra( 2 ) = 0 . 1 
raC 3 ) = 0 . 0 

if (I ..eq. 1) ra(3)=-45. 
if Cl .eq. 2) ra(3)= 45. 
ia( 1 ) =ra( 1 ) 

writeC6,22) I , ia( 1 ) ,raC2) ,ra( 3) 
call NREAL(3,ra) 
iaCl) = int(raCl)) 

MS( 1,11) = ia(l) 

TSC I j II ) = raC 2) 

132 PSCI,I1) = raC 3) 
endif 

130 continue 

return 

end 

SUBROUTINE menuO 

common /mesh/ M,N,MI ,NI ,AX,BY, A(10) ,B(10) , NGRID 

common /matl/ NHAT , El C 3 ,10 ,5) , VI C 3 , 1 0 ,5) ,G1 C3, 10 ,5) , A1 C 3 , 10 , 5) , 
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9 

10 

11 

12 

13 

14 

15 

16 


c . . . 


c . . . 


9 

10 

11 

14 

15 

16 

17 

18 

19 

20 
21 


1 


SS (12,10, 5), NT (10), NAME 
common /wall/ NLAY , MW(30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY( 4 ) , MS( 30 , 4 ) , TS( 30 , 4 ) , PS( 30 , 4 ) 

common /load/ LARG , LEND , LRI B , LRBC , LEBC , LSBC , LTOT , FL ( 4 ) 

common /solve/ NBUC , TAR , NDF ,ND , MO 

dimension ia(10),ra(10), NAME( 10) 

character NAME*80 

format(3x, 'MESH MENU (MENU0):') 

f ormat ( 4x , 1 0 , 0 ) Geometry & General Data') 

f ormat ( 4x , *0,1) Base Panel Width and Length ( AX , BY : ) • , 2F1 0 . 3 ) 
f ormat ( 4x , 1 0 , 2 ) No. of Stiffeners and Ribs (M,N): f ,2I5) 
f ormat( 4x , 1 0 , 3 ) No. of GRID Between Stiffeners and Ribs(MI , NI ) • * , 2 
*15) 

f ormat ( 4x , *0,4) Stiff ener_locations CA):',6F7.3) 
f ormat ( 4x , *0,5) Rib_locations (B): , ,6F7.3) 

f ormat ( 3x, ' ) 

call NEWPAGE 


write( 6 , 9 ) 
ia( 1 ) = 0 
ia( 2)=0 
write( 6 ,10) 
write( 6 ,11) 
write( 6 ,12) 
wri te( 6,13) 
write( 6 ,14) 
write( 6 ,15) 
write( 6 , 16 ) 


AX, BY 
M , N 
MI , NI 

( A( I ) , 1=2 ,M+1 ) 
(B(I) , I =2 , N+l ) 


return 

end 


SUBROUTINE menul(IMAT) 

common /mesh/ M,N,MI,NI,AX,BY,A(10),B(10) , NGRID 

common /matl/ NMAT, El C 3 , 10 , 5) , VI ( 3 , 10. 5) ,G1C 3 , 10 .5) , A1 C3, 10 , 5) , 

1 SS (12, 10. 5). NT (10). NAME 

common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY( A) ,MS( 30 , A ) ,TS(30, A) ,PS( 30 ,4) 

common /solve/ NBUC, TAR, NDF, ND, MO 

dimension ia( 1 0 ) , ra( 1 0 ) , NAME( 10) 

character ans*l , NAMEX80 

format(3x, 'MATL MENU (MENU1 ) : * ) 

f ormat ( Ax , '1,0) Total No. of Materials (NMAT):*, 13) 
f ormat( Ax , ' Properties for MATL No. :',I2) 

format(10x, 'Elastic Modulus (El , E2 , E3) : ' , 3E9 . 2) 
format( lOx, 'Shear Modulus (G12,G23,G31 ) : ' ,3E9 .2) 
format(10x, 'Poisson Ratio (V12.V23.V13) : ' ,3F9. A) 
formatdOx, 'AML + Allowables :', 3( F5 . 1 , F7 . 5) ) 
f ormat (1 Ox, 'AML - Allowables 3(F5 . 1 ,F7 . 5) ) 

f ormat( 3x ,' 

formatdOx, 'Name of the Material: ',80A) 
f ormat ( Ax , * 1 , * , il , ' ) Material Number ’,il) 


call NEWPAGE 
write(6 ,9) 
write(6 ,10) NMAT 
do 1 i=l , I MAT 

write(6,21) i,i 
continue 


c 


return 
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end 

SUBROUTINE menu2 

common /mesh/ M,N,MI,NI ,AX,BY, AC 10) ,B(10) ,NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI C 3 , 1 0 , 5) ,G1 (3 , 10 , 5) , A1 C 3 , 1 0 , 5 ) , 

1 SS(12,10,5) , NTC 1 0 ) , NAME 

common /wall/ NL AY , HW< 30 ) , TWC 30 ) , PWC 30 ) 

c ommon /secb/ MTYP ,XH,XB,XC,XT ; ML AY (4) , MS (30;^)jTS(30,^) ,PS(30,A) 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ia( 10) ,ra( 10) ,NAME( 10) 
character ans*l , NAME*80 
9 format(3x, *Base Ply MENU (MENU2):*) 

10 formate Ax, *2,0) No. of Plies for The Base Panel (NLAY):', 13) 

11 f ormatC Ax , 1 Ply # Material # Thickness Angle*) 

12 f ormatC 8x , IA ,8x,I2, 7x,f 7 . A,2x,f 7 . 1 ) 

1 9 formate 3x , * 1 ) 

call NEWPAGE 
write (6,9) 
writeC 6 ,10) NLAY 
writeC 6 ,11) 
do 1 1=1, NLAY 

1 writeC 6 ,12) I, MW (I) ,TW( I ) ,PW(I) 
writeC 6 ,19) 

return 

end 

SUBROUTINE menu3CILAY) 

common /mesh/ M,N,MI ,NI , AX, BY, AC 10) ,B(10) ,NGRID 

common /matl/ NMAT , El C 3 , 1 0 , 5) , VI ( 3 , 1 0 , 5) ,G1 ( 3 , 1 0 , 5 ) , A1 C 3 , 1 0 , 5) , 

1 SS(12,10,5),NT(10) ,NAME 

common /wall/ NLAY,MW(30) , TWC 30) , PWC 30) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY(A) ,MSC30,A) ,TSC30,A) ,PS(30, A) 
common /solve/ NBUC, TAR , NDF , ND ,M0 
dimension ia( 10) ,ra( 10) ,NAME( 10) 
character ans*l , NAME*80 

10 formate 3x , * ST IF MENU (MENU3) : * ) 

11 formate 5x , * 1 ) Blade , 2)Close Hat, 3)I-shape, A)J-shape,*, 

1 / , 5x, ’ 5) Angle , 6)Zee, 7)Bead, 8)0pen Hat.*) 

12 formate Ax, *3, 0) Type of Stiffener :*,I3) 

13 format Cl Ox, *XH=* ,F6.3, * XB= * ,F6.3) 

1A formate 1 Ox , * XH= 1 , F6 . 3 , * XB=*,F6.3,* XC=*,F6.3) 

15 f ormat-C lOx , * XH= ' , F6 . 3 , * XB=*,F6.3,* XT-SF6.3) 

16 formate 1 Ox , ' XH= * , F6 . 3 , * XB=*,F6.3,* XC=*,F6.3,* XT=*,F6.3) 

17 formate Ax , f 3,*,il, f ) No. of Plies for STIF ,ELEM( *, II ,*):*, 13) 

18 formate Ax,* Ply # Material # Thickness Angle 9 ) 

19 f ormatC 8x ,IA,8x,I2,7x,f7.A,2x,f7 .1) 

20 formate 3x , 1 ) 


call NEWPAGE 
writeC 6 ,10) 
writeC 6 ,11) 
write(6,*)* * 

c.. indicate which type of stiffener 
writeC 6 ,12) MTYP 

c. . print dimensions of the stiffener on screen 
if (MTYP .eq. 5 .or. MTYP . eq . 7) then 
writeC 6 , 13) XH,XB 
elseif (MTYP .eq. 6) then 
write(6 , 15) XH,XB,XT 
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elseif (MTYP .eq. 1) then 
write (6*14) XH,XB,XC 
else 

write (6,16) XH,XB,XC,XT 
endif 

c.... print nominal stiffener element info, 
do 1 i=l , ILAY 

wri te( 6 1 1 7 ) i , i ,MLAY(i ) 

1 continue 

c.. back to fmod3 for choosing items to modify ... 
write( 6,20) 
return 
end 

c ... 

SUBROUTINE menu* 

common /mesh/ M,N,MI ,NI , AX, BY, A( 10) , B( 10) , NGRID 

common /matl/ NMAT , El (3 , 10 , 5) , VI ( 3 , 10 , 5) ,G1 ( 3 , 1 0 , 5) , A1 ( 3 , 10 , 5) , 

1 SS (12, 10, 5), NT (10) , NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) ,MS( 30 , A ) , TS( 30 , A ) , PS( 30 , A ) 

common /load/ LARG , LEND , LRI B , LRBC , LEBC , LSBC , LTOT , FL ( A) 

common /solve/ NBUC , TAR , NDF , ND , MO 

dimension ia( 1 0 ) , ra( 1 0 ) , NAME ( 1 0 ) 

character ans*l , NAME*80 

c . . . 

9 format(3x, 'BCLC MENU (MENU* Boundary Cond . 8 Loading Cond.):*) 

19 f ormat ( 3x , ** 

20 f ormat ( 2x , 1 Boundary Condition Definition *) 

21 format(Ax, ’The model is a part of a much large panel ? > f ,Al) 

22 format ( Ax , 1 There are ribs at Ends ? >*,A1) 

23 f ormat ( Ax Ribs on:(l)$kin (2)$TIF (3)Both ? >*,I1) 

2* f ormat ( Ax , ' B . C . type 9 Ribs: 1) Simply Supp . ; 2) S.S. and Rot . ; f , 

1' “>M1) 

25 f ormat ( Ax , 1 B . C . type no. at Ends: 1 , 

*/6x, f l) Part of Larger Panel; 1 , 

*/6x, f 2) Free; 3) Simply Supp.; 1 , 

2/6x , 1 A ) Clamped- 1 /axial* lateral free; 5) Clamped-2/axial free*, 
3/6x,'6) Fully Clamped (all DOF fixed) >*,I1) 

26 f ormat ( 2x , ' B . C . type no. at Sides: 1 , 

X/6x, f l) Part of Larger Panel; 1 , 

l/6x , * 2) Free; 3) Simply Supp.;', 

2/6x, 1 A) Clamped- 1 /axial* lateral free; 5) Clamped-2/axial free', 
3/6x , 1 6*) Fully Clamped (all DOF fixed) >*,I1) 

30 format(2x,' Loading Condition Definition ■) 

31 f ormat ( Ax , 1 L oads type (liTotal lb; 2:Line lb/in) >* / H) 

32 format ( 7x , 1 axial load > f ,F8,l) 

33 format ( 7x , 1 lateral load > * , F8 . 1 ) 

3A format(7x , 1 shear load along ends > f ,F8.1) 

35 format(7x, 'lateral pressure in psi > f ,F8.2) 

c ... 
c ... 

call NEWPAGE 
write(6,9) 1 
write( 6 , 20 ) ■ 
ans= 1 N 1 

if (LEND .eq. 1) ans= , Y t 
write(6,22) ans 
write( 6 , 23 ) LRIB 
write(6,2A) LRBC 
write(6 ,25) LEBC 
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write(6,26) LSBC 
wri te( 6 , 30) 
write(6,31) LTOT 
wri te( 6 , 32 ) FL(1) 
wr i te C 6,33) FL(2) 
write(6,3A) FL(3) 
write(6,35) FL(A) 

c ... 

return 

end 

c ... 

SUBROUTINE flist 

common /mesh/ M,N,MI,NI,AX,BY,A(10),B(10) , NGRID 

common /matl/ NMAT ,E1 ( 3 , 10 , 5) , VI ( 3 , 10 , 5 ) , G1 ( 3 , 1 0 , 5) , Al(3 , 10 , 5) , 

1 SS (12, 10, 5), NT CIO), NAME 

common /wall/ NLAY , MWC 30 ) , TW( 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) , MS( 30 , A ) , TS( 30 , A ) , P$( 30 , A ) 
common /load/ LARG , LEND , LRI B , LRBC , LEBC , LSBC, LTOT , FL ( A) 
common /solve/ NBUC , TAR , NDF , ND , M0 
dimension ia( 1 0 ) , ra( 1 0 ) , NAME( 1 0 ) 
character NAME*80 
c 

cl 2 3 A 5 6 72 

c ... 

c . list input 
c ... 

9 formate Ax, 'm,n) >» MAIN MENU <<< f , 

1 ' ( general MESH data)') 

10 formate Ax , 1 0 , 0 ) Geometry & General Data') 

11 formate Ax, '0,1) Base Panel Width and Length (AX, BY: ) ' ,2F10 . 3) 

12 formate Ax 0 , 2 ) No. of Stiffeners and Ribs (M,N):',2I5) 

13 formate Ax , ' 0 , 3 ) No. of GRID for Stiffeners and RibsC MI , NI ) : ' , 215) 
1A formate Ax, f 0 , A) Stiff ener_locations (A):',6F7.3) 

15 f ormatCAx, '0,5) Relocations (B):',6F7.3) 
c ... 

16 formate Ax, *1,0) Total No. of Materials (NMAT):', 12) 


17 formatCAx,' ») 

18 formatCAx,' »> OTHER MENUS «< ', 


1 '(MATL, BASE Ply, STIF Ply, BC & LC) • ) 

c . . . 

21 formatCAx, '2,0) No. of Plies for The Base PanelC NLAY) : • , 12) 

29 formatCAx, '3,0) Axial stiffener type No . CMTYP ) : • , 12 , 

1 ./Ax, 'Blade=l, Close Hat = 2,"I" = 3,"J"=A,Angle=5, f 'Z"=6,Bead=7, 

lOpen Hat=8 . ' ) 

30 formatClOx, 'XH=' ,F6.3, ' XB=',F6.3,' XC=',F6.3,' XT=',F6.3) 

31 formate Ax, '3,1) No. of Plies for STIF, Element 1 (MLAY1 ) : • , 12) 

32 formatCAx, ’3,2) No. of Plies for STIF, Element 2CMLAY2) : ' , 12) 

33 formatCAx, '3,3) No. of Plies for STIF, Element 3CMLAY3 ) : ' , 12) 

3A formatCAx, '3, A) No. of Plies for STIF, Element A(MLAYA) : ' , 12) 

35 formate Ax , * A, 0) Boundary & Loading Conditions') 

36 formate 1 Ox , f, XH= ' , F6 . 3 , ' XB=',F6.3,» XC=',F6.3) 

37 formate 1 Ox , ' XH= ' , F6 . 3 , ' XB=' ,F6.3) 

38 formate lOx, ' XH= ' ,F6 . 3 , ' XB=',F6.3,' XT=',F6.3) 
c ... 

1 call NEWPAGE 
writeC 6 , 9 ) 
ia( 1 )=0 
iaC 2) = 0 
write(6 , 10) 
write(6,ll) AX, BY 
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c 


writeC 6 ,12) M, N 
write (6/13) MI,NI 
writeC6,14) ( A( I ) , 1=2 , M+l ) 
writeC 6 ,15) C B( I ) , I = 2 , N+l ) 

writeC 6 ,17) 
writeC 6 , 18) 
write(6 , 16)NMAT 
write(6,21)NLAY 
wri te ( 6 , 29 )MTYP 
if (MTYP.eq.l) then 
wri te( 6 , 36 )XH , XB , XC 
elseif C MTYP . eq . 5 . or . MTYP . eq . 7 ) then 
writeC 6,37) XH,XB 
elseif (MTYP.eq.6) then 
writeC 6,38) XH,XB,XT 
else 

writeC 6 , 30 ) XH,XB,XC,XT 
endif 

writeC 6 , 35 ) 

writeC 6 , ' C ' ' Select m,n = > -1 : END ; 9:QUIT; m,n : UPDATE »"$)') 
iaC 1 )=0 
iaC 2) = 0 

call NINTGC 2 , ia) 

ISEL1= iaCl) 

ISEL2= iaC2) 

50 if CISEL1 .eq. -1) go to 90 
if CISEL1 .eq. 9) call QUIT 

if CISEL1 .eq. 0 .and. ISEL2 .ne. 0) call fmodOCISEL2) 

if CISEL1 .eq. 0 .and. ISEL2 .eq. 0) go to 1 

if CISEL1 . eq . 1 ) call f modi C ISEL1 , ISEL2) 

if CISEL1 .eq. 2 ) call f mod2C ISEL1 , ISEL2) 

if CISEL1 .eq. 3 ) call f mod3C ISEL1 , ISEL2) 

if CISEL1 .eq. A ) call f mod4C ISEL1 , ISEL2) 

go to 50 

c ... 

90 continue 
return 
end 

c ... 
c ... 

SUBROUTINE fmod0CIS2) 

common /mesh/ M,N,MI , NI , AX, BY, AC 10) , BC 10) , NGRID 

common /matl/ NMAT , El C3 , 10 , 5) ,V1C3, 10 ,5) ,G1C3,10,5) ,A1C3,10,5) , 

1 ' SSC12,10,5),NTC10), NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) , MSC30 ,4) ,TSC30,4) ,PSC30,4) 
common /solve/ NBUC , TAR , NDF , ND , MO 

cl 2 3 4 5 6 72 

c ... 

c . modify geometry input 
c ... 

dimension raC 1 0 ) , iaC 10 ) , NAMEC 1 0 ) 
character ans*l , NAME*80 

11 formatC5x, 'Modify Panel Width and Length>>C 1 ,2F8 . 3 ,*)>'$ ) 

12 formate 5x, 'Modify No. of Stiffeners and Ribs »C ' ,213, ' )> ' $ ) 

13 formatC5x, 'Modify No. of Sub-Grid between Stif/Rib »( ' ,212, ' )> '$) 

14 formatC5x, 'Modify ', 12, ' Axial Stiffener locations >>'$) 

15 formatC5x, 'Modify* , 12, ' Lateral Rib locations >>'$) 
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c . . 


call menuO 

if (IS2 .le. 1) then 
ra( 1 )=AX 
ra( 2 ) =BY 

write (6,11) ra(l) , ra( 2) 
call NREAL( 2,ra) 

AX=ra( 1 ) 

BY=ra( 2 ) 
endif 

if (IS2 .le. 2) then 
ia( 1 ) =M 
ia( 2)=N 

write(6,12) ia(l),ia(2) 
call NINTG(2 , ia) 

M=ia( 1 ) 

N=ia( 2) 
endif 

if (IS2 .le. 3) then 
ia( 1 )=MI 
ia( 2 ) =NI 

wri te( 6,13) ia(l),ia(2) 
write(6,*)' * 

wri te( 6 , 1 ( 5x , 1 • Does the user want to specify Sub-Divisions? (Y/ 
*N)")') 

write(6, '(5x, "Enter >>"$)') 
call STITLE(ans) 

if Cans .eq. 'N' .or. ans . eq. *n') then 
MI = 2 
NI = 3 

wri te( 6 ,'( 5x Sub-Grids between Stiffeners are 2.*')') 
wri te( 6 ,'( 5x Sub-Grids between Ribs are 3. ,f )') 
elseif (ans .eq. 1 Y ' .or. ans .eq. 'y') then 
write(6 ,13) ia(l),ia(2) 
call NINTG(2,ia) 

MI=ia( 1 ) 

NI=ia(2) 

endif 

endif 

if (IS2 .le. A) then 
A( 1 ) = 0 . 

DA = AX/( M+l ) 
do 1 1^1, M+l 

1 A( 1+1 ) = DA * I 

write(6, '(5x, "Stiffeners equally spaced (Y/N)? »<Y)>"$) f ) 

ans= ' Y ' 

call STITLE(ans) 

if (ans .eq. 'Y' .or. ans .eq. *y') go to A 
write( 6 , 1 A ) M 
call NREAL(M,ra) 
do 3 1=1, M 
3 A( 1 + 1 ) = rad) 

A A(M+2 ) = AX' 
endif 

if ( IS2 .eq. 5 .or. IS2 . le . 3) then 
B( 1 ) = 0 . 

DB = BY/( N+l ) 
do 2 1=1, N+l 

2 B( 1+1 ) = DB * I 

write(6, * (5x, 1 'Ribs equally spaced (Y/N)? >>(Y)> ,, $) f ) 
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ans= ' Y' 

call STITLECans) 

if Cans .eq, 'Y' .or. ans .eq. 'y 1 ) go to 6 
writeC6,15) N 
call NREAL C N , ra) 
do 5 1=1, N 

5 BCI+1) = ra( I ) 

6 BCN+2) = BY 
endif 

c ... 

110 writeC 6 ,112) 
ia( 1 )=1 
iaC2)=0 

call NINTGC 2 , ia) 

ISl=ia( 1 ) 

IS2=ia( 2) 

111 continue 

112 formatC3x,' Selection=> l,n: modify MATL in;', 

1 * - 1 : End ; 9:Quit; m,0: other MENUS >>'$) 

return 

end 

c ... 
c 

SUBROUTINE f modi ( IS1 , IS2 ) 

common /mesh/ M , N , MI , NI , AX , BY , AC 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5) , VI ( 3 , 1 0 , 5) ,G1 C 3 , 10 , 5 ) , A1 C 3 , 1 0 , 5) , 

1 SSC12,10,5) ,NTC10), NAME 

common /wall/ NLAY, MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A) ,MSC30,4) ,TSC30,4) ,PSC30 ,4) 
common /solve/ NBUC , TAR , NDF , ND , MO 

c ... 

c . modify geometry input 

c ... 

dimension raC 10) , iaC 10) ,NAMEC 10) 
character ansxl , NAME*80 

11 f ormatC 5x ,* Enter E1,E2,E3 > '$) 

12 formatCSx, 'Enter G12,G23,G31 > '$) 

13 format(5x, 'Enter V12,V23,V31 > '$) 

14 formatC 5x ,' Enter AML + Allowables C3 pairs)> '$) 

15 f ormatC 5x Enter AML “ Allowables C3 pairs)> *$) 

16 formatC5x, 'Update Elastic Modulus CY/N)? »CN)>'$) 

17 formatCSx, 'Update Shear Modulus CY/N)? >>(N)>’$) 

18 f ormat-C 5x , • Update Poisson Ratio CY/N)? >>CN)>’$) 

19 formatC5x, 'Update AML +AllowablesCY/N) ? »CN)>'$) 

20 formatC5x, 'Update AML -AllowablesCY/N) ? »(N)>'$) 

21 f ormatC 5x ,' Modify Above Material Properties CY/N)? >>(N)>*$) 

22 f ormatC 5x , ’ Add MATL ID*, 12,' CCurrent number of MATL= ' , 12, ' ) * ) 

23 formatCSx, 'Add New Material No. ',i2,' CY/N)? >>CY)>'$) 

2A f ormatC 5x ,’ Name of the Material > '$) 

25 f ormatC 5x ,' Update Name of the Material (Y/N)? >>(N)>*$) 

26 format C 5x , ' Add Material CY/N)? »CN)>'$) 

112 formatC3x, 'Selection=> l,n: modify MATL in; 1 , 

1/, 5x, ' “1 : Exit; 9: Quit; m,0: other MENUS »'$) 

113 formatCAx,' Properties for MATL No. :',I2) 

11A formatCSx, ' l>>Elastic Modulus CE1 ,E2 , E3) : ' , 3E9 . 2) 

115 formatC 5x ,' 2>>Shear Modulus CG12 ,G23 ,G31 ) : • , 3E9 . 2) 

116 formatC 5x , 1 3>>Poisson Ratio CV12 , V23 ,V31 ) : * , 3F9 . A) 

117 formatCSx, *4>>AML + Allowables: ' ,3CF5 . 1 ,2x,F7 .A) ) 

118 formatC 5x , * 5>>AML - Allowables : * , 3C F5 . 1 , 2x,F7 . A) ) 

119 formatC 3x , 1 ^ 
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110 IMAT=NMAT 

call menul(IHAT) 
write(6,112) 
ia( 1 ) = 1 
ia( 2 ) =0 

call NINTG( 2 , ia) 

ISl = ia( 1 ) 

IS2=ia( 2) 

if (IS1 .ne. 1) go to 111 
if (IS2 .eq. 0) go to 100 


call NEWPAGE 
write(6,113) IS2 
write (6 , 114) (El(j,Is2,l),j=l,3) 
write (6 , 115) CGI ( j , Is2, 1 ) , j=l , 3) 
writeC 6,116) (Vl(j,Is2,l),j=l,3) 
write (6,117) ( SSC j , Is2 , 1 ) , j=l , 6 ) 
writeC 6,118) ( SSC j , Is2 , 1 ) , j = 7 , 12 ) 
writeC 6 ,119) 

writeC 6 , 21 ) 1 
ans=*N' 

call STITLE(ans) 

if Cans .eq. 'N f .or. ans .eq. 'n 1 ) go to 10 
write(6, f (4x, f 'Select Item to be modified >> ,, $) i ) 
call NINTGC 1 ,kk) 
go to (l,2,3,4,7)kk 

1 continue 
write(6 , 16) 
ans= 1 N 1 

call STITLE(ans) 

if (ans .eq. 'N' .or. ans . eq . 'n') go to 10 

continue 

write(6 , 11 ) 

ra( 1 ) »E1 ( 1 , IS2 / 1 ) 

ra(2)=El(2,IS2,l) 

ra(3)=El(3,I$2,l) 

call NREAL ( 3, ra) 

El (1 , IS2, 1 )=ra( 1 ) 

El(2,IS2,l)=raC2) 

El(3,IS2,l)=ra(3) 
go to .10 

2 continue 

writeC 6 , 17 ) 
ans= 1 N 1 

call STITLE(ans) 

if Cans .eq. *N f .or. ans .eq. f n*) go to 10 

writeC 6 ,12) 

ra(l)=Gl(l,IS2,l) 

ra(2)=Gl(2,IS2,l) 

ra(3)=GlC3,IS2,l) 

call NREALC 3,ra) 

GlCl,IS2,l)=ra(l) 

Gl(2,IS2,l)=ra(2) 

Gl(3,IS2,l)=ra(3) 
go to 10 

3 continue 



writeC 6 , 18) 
ans= 1 N 1 

call STITLE(ans) 

if Cans .eq. 'N' .or. ans . eq . 'n*) go to 10 

write( 6 ,13) 

ra(l)=Vl(l,IS2,l) 

ra(2)=Vl(2,IS2,l) 

ra(3)=Vl(3,IS2,l) 

call NREAK 3 , ra) 

Vl(l,IS2,l)=ra(l) 

Vl(2,IS2,l)=ra(2) 

Vl(3,IS2,l)=ra(3) 
go to 10 

4 continue 

wri te( 6,19) 
ans = 1 N f 

call STITLE(ans) 

if (ans .eq. ’N 1 .or. ans . eq . 'n') go to 10 

write( 6 , 1 A) 
do 5 1=1,6 

5 ra(I)=SS(I,IS2,l) 
call NREAK 6 , ra) 
do 6 1=1,6 

6 SS(I,I$2,l)=ra(I) 
go to 10 

7 continue 

writeC 6 , 20 ) 
ans= 1 N f 

call STITLE(ans) 

if (ans . eq . 'N' .or. ans . eq . 'n 1 ) go to 10 

write( 6 ,15) 
do 8 1=1,6 
11=1+6 

8 ra(I)=SS(II,IS2,l) 
call NREAK 6 , ra) 
do 9 1=1,6 
11=1+6 

9 SS(II ,IS2,l)=ra(I) 

10 go to 110 


100 itmp=LMAT+l 

write(6,23) itmp 
ans= f Y 1 

call STITLE(ans) 

if (ans . eq . 'N 1 .or. ans . eq . , n l ) go to 110 


call NEWPAGE 
NMAT=itmp 
write( 6 ,11) 
ra(l)=El(l, I MAT, 1 ) 
ra(2)=El(2, I MAT, 1) 
ra(3)=El(3, I HAT , 1 ) 
call NREAL(3,ra) 
Eld , itmp, 1 ) = ra( 1 1 
El ( 2, itmp , 1 )=ra(2) 
El ( 3 , itmp , 1 ) =ra( 3) 


c 


write(6 , 12) 
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rad ) =G1 d , I MAT , 1 ) 
ra(2)=Gl(2, I MAT , 1 ) 
ra(3)=Gl(3, I MAT , 1 ) 
call NREALC3 ,ra) 

G1 d , itmp ,l) = rad) 

Gl(2,itmp,l)=ra(2) 

G1 ( 3 , itmp, l)=ra(3) 

c ... 

write ( 6,13) 
rad)=Vld, I MAT , 1 ) 
ra(2)=Vl(2, I MAT , 1 ) 
ra(3)=Vl(3, I MAT , 1 ) 
call NREAL( 3 ,ra) 

VI d , itmp ,l)=rad) 

Vl(2,itmp,l)=ra(2) 

VI ( 3 , itmp , 1 ) = ra(3) 

c ... 

c ... AML input . . . 
c ... 

rad) = -60. 
rad) = 0.001 
ra( 3) = 0. 
ra( 4 ) * 0.002 
ra( 5 ) = 60. 
ra(6 ) = 0.001 

wr iteC 6 , 1 ( * • Do you want to input AML Failure Parameters (Y/N)?'*$) 
*' ) 

call STITLE(ans) 

if ( ans .eq. f Y* .or. ans . eq . *y') then 

writeC 6 , 1 A) 
do 105 1=1,6 

105 ra(I)=SS(I, I MAT , 1 ) 
call NREALC 6 ,ra) 

endif 

do 106 1=1,6 

106 SSd , itmp , 1 ) =ra( I ) 
c ... 

if ( ans .eq. f Y’ .or. ans .eq. 'y' ) then 
writeC 6 ,15) 
do 108 1=1,6 
11=1+6 

108 ra(I)=SS(II, I MAT , 1 ) 
call NREAL(6,ra) 

endif * 

do 109 1=1,6 
11=1+6 

109 SS( II , itmp, 1 )=ra( I ) 
c ... 

c ... 

Ill continue 
return 
end 

c ... 

SUBROUTINE f mod2( IS1 , IS2) 

common /mesh/ M,N,MI,NI,AX,BY,A(10),B(10) , NGRID 

common /matl/ NMAT , El (3, 10, 5), VI (3, 10, 5), G1 (3, 10, 5), A1 (3, 10, 5), 

1 SSd2,10,5) , NTC 10 ) , NAME 

common /wall/ NLAY,MW( 30) ,TW(30) , PW( 30) 

common /secb/ MTYP ,XH,XB,XC,XT ,MLAY( A) ,MS(30 ,4),TS(30,4) ,PS(30,4) 
common /solve/ NBUC,TAR,NDF,ND ,M0 
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c 


c . modify basic panel plies 
c . . . 

dimension ra(10),ia(10), NAME (10) 
character ans*l , NAME*80 

11 formatC5x, 'Modify the no. of plies 3 the panel(Y/N)? >>(N)> f $) 

12 formatCSx, 'Enter MATL# , THK & Angle 3 PLY t , / I2, l > f $) 

13 f ormatC 5x Enter the number of plies >>( 1 , 12 , 1 )> 9 $ ) 

14 formatC3x, f Selection => 2,n: modify panel plies; 

1 />' “ 1 : End ; 9:Quit; m,0: other MENUS >>'$) 

c ... 

1 if (IS1 . ne . 2) go to 9 
call menu2 
writeC 6 , 11 ) 
ans= 1 N * 

call STITLE(ans) 

if Cans .eq. 'N f .or. ans . eq . *n') go to 10 

ia( 1 )=NLAY 
writeC 6 >13) ia(l) 
call NINTG(l,ia) 

NLAY=iaC 1 ) 
writeC 6 , *) ' * 

write (6, 1 C 5x , 1 'Enter MATL#, THK & Angle 3 PLY #> * * ) • ) 
writeC 6 ,*( 2x , • 'Are all information the same for ALL plies CY/N)? ,f 
*$)') 

call STITLECans) 

if C ans .eq. f Y' .or. ans . eq . f y*) then 
iaC 1 )=mwC 1 ) 
raC 2) = twC 1 ) 
raC 3) =pwC 1 ) 
ii = l 

writeC6 , 12)ii 

call NREAL C 3 , ra) 

iaC 1 ) = int C ra( 1 ) ) 

mwC 1 )=iaC 1 ) 

twC 1 )=raC2) 

pw( 1 )=raC 3) 

do 20 i=2 ,NLAY 

mwC i )=mw( 1 ) 

twC i ) = twC 1 ) 

pwC i )=pwC 1 ) 

20 continue 

go -to 30 
else 

do 2 1=1 , NLAY 
ia( 1 ) = MWC I ) 
raC 2) = TWC I ) 
raC 3) = PWC I ) 
writeC 6,12) I 
call NREAL C 3, ra) 
iaCl) « intCraCl)) 

MWCI)=iaCl) 

TWC I )=raC2) 

2 PWC I )=raC 3) 
go to 30 
endif 

10 writeC 6 , 1 C 1 * Choose PLY NUMBER to modify CY/N)? ,, $) t ) 
call STITLECans) 

if ( ans .eq. ■Y* .or. ans .eq. , y f ) then 
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wri te( 6 , ’ ( ' ' Enter PLY NUMBER = "$)') 

call NINTGC 1 ,kp) 

writeC 6 , 12)kp 

call NREAL ( 3 , ra) 

ia(l) = intCra(l)) 

MWCkp ) =ia( 1 ) 

TW(kp ) =ra( 2 ) 

PW(kp) =ra( 3 ) 
endif 

30 write(6,14) 

ia( 1 ) =2 
ia( 2) =0 

call NINTG(2,ia) 

IS1 =ia( 1 ) 

IS2=ia( 2 ) 
go to 1 

c ... 

9 continue 
return 
end 

c ... 
c ... 

SUBROUTINE f mod3< IS1 , IS2 ) 

common /mesh/ M , N , MI , NI , AX , BY , A( 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT,E1(3, 10 ,5) ,V1(3,10,5),G1(3,10,5),A1(3,10,5), 

1 SS (12, 10, 5), NT (10) , NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PW( 30 ) 

common /sect/ MTYP , XH , XB , XC , XT ,MLAY( 4 ) ,MS(30, A) ,TS(30,4) ,PS(30,4) 
common /solve/ NBUC ,TAR , NDF , ND , M0 
dimension ra( 1 0 ) , ia( 1 0 ) , NAME( 1 0 ) 
character ans*l , NAME*80 

c . modify MENU3: STIF, ELEMENT Ply Layup 

c ... 

11 f ormat ( 3x , ' Selection => 3,n: modify panel plies; ' , 

1/ , 16x , ' -1 : End ; 9:Quitj m,0: other MENUS; -1: exit. »'$> 

12 format ( 5x , ’ Change Dimensions of the Stiffeners (Y/N)? >>(N)>*$) 

13 format(5x, 'Enter XH,XB,XC,XT »( 1 , 4F6 . 3, 1 )> # $) 

14 format(5x, ’Enter XH,XB,XC »( 1 ,3F6 . 3, f )> '$) 

15 format(5x, 'Enter XH,XB >>< 1 , 2F6 . 3 , 1 ) > # $ ) 

16 format(5x, 'Enter XH,XB,XT » ( 1 , 3F6 . 3 , f )> • $ ) 

17 format(5x, 'Change the Stiffener Type (Y/N)? »(N)>'$) 

18 formats 5x, 'Change Axial Stiffener from Type ' ,il,' to >> '$) 

19 f ormat ( 5x , * 1 ) Blade , 2)Close Hat, 3)I-shape, 4)J-shape,’, 

1 / , 5x , ’ 5 ) Angle , 6)Zee, 7)Bead, 8)0pen Hat. 1 ) 

20 f ormat (5x, 'Enter MATLi, THK S Angle 3 PLY #',I2,*>'$) 

22 format(5x, 'Enter the number of plies >>(', 12 ,')>'$ ) 

23 format(5x, 'Enter NUMBER OF PLIES for STIFF ELEM Ml,' »'$) 

24 format( 5x , 'Modify the number of above plies (Y/N)? >>(N)>'$) 

25 format(4x, '3, ' ,il, ' ) No. of Plies for STIF, ELEM( 1 , II , ' ) : 1 , 13) 

26 f ormat( 4x , ' Ply # Material t Thickness Angle') 

27 f ormat(8x, I4,8x,I2,7x,f7.4,2x,f7.1) 


c. . . identify how many element for this type of stiffener ... 
1 if (MTYP .EQ. 1 .OR. MTYP .EQ. 5) thon 
IP=2 

elseif (MTYP.eq.2) then 
IP = 4 
else 
IP=3 
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c 

c 


c . 
c 
c . 

c . 
c 
c . 


c . 
c 
c . 


c . . 
c . . 
c . . 
500 


endif 

call menu3(IP) 

choose items to modify or exit this menu . . 

10 writeC 6 ,11) 
ia( 1 ) =3 
ia( 2 ) = 0 

call NINTG(2,ia) 

ISl=ia( 1 ) 

IS2=ia ( 2 ) 

it (IS1 . ne . 3) go to 9 

if (IS2 .It. 0 .or. IS2 .gt. IP) then 

write(6, , ( ,t Select Again, Please. ,, ) f ) 
go to 10 
endif 

• . change stiffener geometry . . 

if (IS2.eq.0) then 

■ • change stiffener type ? . . 

write(6,17) 
ans= 9 N f 

call STITLE(ans) 

if Cans . eq . , Y t .or. ans .eq. •y 1 ) go to 500 

change stiffener dimensions ? . . 

writeC 6 , 12) 
ans= 1 N 9 

call STITLE(ans) 

if Cans .eq. 9 N 1 .or. ans . eq . ’n 1 ) then 

go to 1 
else 

if CMTYP .EQ. 5 .or. HTYP .eq. 7) THEN 
write(6 ,15) XH,XB 
call NREAL(2,XH,XB) 
elseif (MTYP .eq. 6) then 
write C 6 , 16 ) XH,XB,XT 
call NREAL C 3 , XH ,XB , XT) 
elseif (MTYP .eq. 1) then 
write ( 6 , 14) XH,XB,XC 
call NREALC3,XH,XB,XC) 
else 

write(6,13) XH,XB,XC,XT 
call NREAL(4,XH,XB,XC,XT) 
endif 
go to 1 
endif 

change stiffener type . . 

call NEWPAGE 
ia(l )=MTYP 
write(6 ,19) 
write(6 , 18) ia(l) 
call NINTG( 1 ,ia) 

MTYP=ia( 1 ) 
ra( 1 )=XH 
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ra(2)=XB 

ra(3)=XC 

ra(«)=XT 

if (MTYP.eq.l) then 

write^j'C 11 Enter dimensions XH, XB, XC >> ,, $) 1 ) 
call NREAL(3,ra) 

XH = ra ( 1 ) 

XB=ra( 2) 

XC=ra( 3 ) 

elseif ( MTYP . eq . 5 . or . MTYP . eq . 7 ) then 

write^^'C 1 * Enter dimensions XH, XB >> f, $)*) 
call NREAL(2,ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

elseif (MTYP.eq.6) then 

write(6, , ( ,f Enter dimensions XH, XB, XT >> ,, $) f ) 
call NREAL(3,ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

XT=ra( 3) 
else 

writeC6, , ( ,, Enter dimensions XH, XB, XC, XT >> ,f $)') 
call NREALC A ,ra) 

XH-ra( 1 ) 

XB=ra( 2 ) 

XC=ra( 3 ) 

XT=ra( 4 ) 
endif 

if (MTYP .eq. 1 .or. MTYP .eq. 5) then 
ip=2 

elseif (mtyp .eq. 2) then 
ip-A 
else 
ip-3 
endif 

do 501 i=l , IP 
write(6 , 23)i 
call NINTGC 1 , ia) 

MLAY( i )=ia( 1 ) 

*rite(6 , f (2x, 1 'Are all information the same for ALL plies (Y 
*/N)?' *$)*) 

call STITLE(ans) 

if ( ans .eq. # Y* .or. ans . eq . , y* ) then 

J = 1 

write( 6,20) J 
call NREAL(3,ra) 
ia(l) = int(rad)) 
ms( 1 ,i)=ia( 1) 
ts( 1 ,i)=ra(2) 
ps(l ,i)=ra(3) 
do 502 k=2,MLAY( i) 
ms(k ,i)=ms(l ,i) 
ts(k,i)=ts(l,i) 
ps(k,i)=ps(l ,i) 

502 continue 

else 

do 503 j*l ,MLAY(i ) 
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ia(l)=MSC j,i) 
ra(2)=TS( j , i) 
raC3)=PSC j,i) 
writeC6 ,20) J 
call NREALC3,ra) 
iaCl) = int(raCl)) 

MS( j , i )=iaC 1 ) 

TS( j , i )=ra( 2) 

PS( j , i )=ra( 3) 

503 continue 

endif 

501 continue 

go to 1 
endif 

c... modify STIFF ELEM only ... 
call NEWPAGE 

writeC 6,25) is2 , is2 , ML AYC is2 ) 

wri te( 6,26) 

do 601 j=l , MLAY( is2 ) 

writeC 6 , 27 ) j ,MS( j , is2) , TSC 5 , is2) , PSC j , is2) 

601 continue 

writeC 6 , ' C8x , f 1 00 No Change'')') 
writeC6,#)' * 
writeC 6 ,24) 
ans= 1 N 1 

call STITLECans) 
writeC6,*)' ' 

if Cans .eq. 'N' .or. ans .eq. f n') then 

write(6, 'C5x, ' 'Choose the PLY NUMBER you wish to change >>■'$) 

*') 

call NINTGC 1 ,k ) 
if ( k .eq. 0 ) go to 1 
write(6,20) k 
call NREAL(3,ra) 

cccp 

cccp write(6,*)raCl),raC2),raC3) 

cccp 

ia(l) = int(raCl)) 

MSCk , is2)=ia( 1 ) 

TS(k,is2)=ra(2) 

PSC k , is2) =ra( 3) 

cccp 

cccp writeC 6 ,*)psCk, is2) 

cccp 

go to 1 
else 

write(6,23)is2 

call NINTGC 1 ,MLAYC is2) ) 

writeC6,*)' ' 

writeC 6 , • C 2x , 1 'Are all information the same for ALL plies CY/N) 
*?"$) ' ) 

call STITLECans) 

if C ans .eq. 'Y* .or. ans .eq. 'y f ) then 
j = l 

writeC 6 , 20 ) J 
call NREALC 3 ,ra) 

writeC6 / *)raCl) 1 raC2),raC3) 


cccp 

cccp 

cccp 


iaC 1 ) = intC raC 1 ) ) 
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MS(l,is2)=ia(l) 
ts( 1 ,is2)=ra(2) 
ps( 1 , is2)=ra(3) 

write ( 6 ,x)ps( 1 , is2) 

do 602 kg=2,MLAY(is2) 
ms (kg , is2)=ms( 1 , is2) 
tsCkg , is2)=ts( 1 , is2) 
ps(kg , is2)=ps( 1 , is2 ) 
continue 
else 

do 603 1 = 1 , MLAYC is2 ) 
write(6,20) I 
call NREAL(3,ra) 

write(6,x)ra(l),ra(2),ra(3) 

ia(l) = int(ra(l)) 

MS( i , is2 ) =ia( 1 ) 

TS( i , is2 ) =ra( 2) 

PS(i , is2)=ra( 3) 

write( i , is2) 

continue 
endif 
go to 1 
endif 


9 continue 
return 
end 

c ... 
c . . . 

SUBROUTINE f modAC IS1 , IS2) 

common /mesh/ M , N , MI , NI , AX , BY , A( 10 ) , B( 10) , NGRID 

common /matl/ NHAT , El ( 3 , 1 0 , 5) , VI ( 3 , 1 0 , 5) ,61 ( 3 , 10 , 5 ) , A1 ( 3 ,1 0 , 5) , 

1 SS(12,10,5),NT(10),NAME 
common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ MTYP,XH, XB,XC, XT, MLAYC4) ,M$(30,4) ,15(30,4) ,PS(30,4) 
common /load/ LARG, LEND,LRIB,LRBC,LEBC,LSBC,LT0T,FL(4) 
common /solve/ NBUC , TAR , NDF , ND ,M0 
dimension ra( 10 ) , ia( 1 0 ) , NAME( 10 ) 
character ansXl , NAMEX80 , typeXIS 
cXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c FORMAT STATEMENTS FOR LISTING 

cXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

21 format( 2x, 1 Should it represent a part of a much larger 1 , 
l f panel?(Y/N)»(N)> 1 $) 

22 f ormat(2x, 1 Are there ribs at Ends ?(Y/N)»(Y)>'$) 

23 format(2x,*Ribs on:(l)Skin (2)STIF (3)Both ?»(1)> , $) 

24 f ormat(2x, f Choose a B.C. Type no. at Ribs:* 
l/10x,*(l) Simply Supported; (2) S. S. with Rotation; * , 

2 * ?>>( 1 )> 1 $) 

25 format(2x, *Choose a B.C. type no. at Ends: 9 , 
x/10x,*d) Part of Larger Panel*, 

x/10x, * (2) Free*, 
l/10x,*(3) Simply Supported*, 

3/10x,*(4) Semi -Clamped' 1 (axial & lateral free)*. 


cccp 

cccp 

cccp 


602 


cccp 

cccp 

cccp 


cccp 

cccp 

cccp 

603 
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4/10x,*(5) Semi -Clamped-2 (axial only free) 9 , 

5/10x,'(6) Fully Clamped (all DOF fixed) >>(!)>•$) 

26 format( 2x, 'Choose a B.C. type no. at Sides :' , 

*/10x,'(l) Part of a Larger Panel' , 

c/lOx, ' (2) Free', 

l/10x,'(3) Simply Supported', 

3/1 Ox * ' ( 4 ) Semi - Clamped - 1 (axial & lateral free)', 

4/1 Ox, ' ( 5 ) Semi -Clamped-2 (axial only free)', 

5/10x,'(6) Fully Clamped (all DOF fixed) >>(2)>'$) 

30 format(2x,' Loading Condition Definition ') 

31 format(2x, 'Choose input loads type (Total=l , Line=2) ' , 
c ' ?>>( 2)> ' $ ) 

32 f ormat ( 5x ,' foil owing total load unit : lb') 

33 format(5x, 'following line load unit: lb/in') 

34 format(7x, 'Input axial load >>( 1 , F8 . 1 ,')>•$ ) 

35 format(7x, 'Input lateral load >>( ' ,F8 . 1 , ' )> ' $) 

36 format(7x, ' Input shear load along ends >>(', F8 . 1 ,')>'$ ) 

37 format(7x, 'Input lateral pressure in psi >>', F8 . 1 ,')>'$ ) 

38 f ormat ( 7x , ' 4,7)Axial = f ,f8.1) 

39 f ormat( 7x , ' 4,8)Lateral = ',f8.D 

40 f ormat ( 7x , ' 4,9)Shear Along the Ends = ',f8.1) 

41 f ormat ( 7x , ' 4,10)Lateral Pressure (psi.)= ',f8.1) 

42 format(2x,' Solution Technique ') 

43 format(5x, 'TYPE OF TARGET > • , al5 , i2 , lx , ' N0DE= ' , i3 , lx , 

**TARGET= ' , f 10 . 5) 

44 format(5x, 'TYPE OF TARGET > ' ,al5 , lx , 'TARGET 3 • ,f 10 . 5) 
c ************* 

CXXXXXXXXXXXXX 
50 call NEWPAGE 

10 write(6,'('' Boundary Condition Definition •')') 

if (LEND.eq.l) then 

write( 6 , ' ( ' ' 4,l)There ARE ribs on the ends.'*)') 
else 

write( 6 , ' ( ' ' 4,l)There are NO ribs on the ends.")') 
endif 

if (LRIB.eq.l) then 

writeC 6 , ' ( ' ' 4,2)Ribs on the Skin.")') 

elseif (LRIB.eq.2) then 
write(6,'(" 4,2)Ribs on the Stiffener.")') 
elseif (LRIB.eq.3) then 

writeC 6 , ' ( ' ' 4,2)Ribs on both the Skin and the Stiffener.")') 
endif 

if (LR8C .eq. 1) then 

wri te( 6 , ' ( ' ' 4,3)Ribs are simulated using Simple Support Constr 
faints.")') 

elseif (LRBC . eq . 2) then 

wri te( 6 , ' ( " 4,3)Ribs are simulated using Simple Support plus R 
Rotational Constraints.")') 
endif 

if (LEBC.eq.l) then 

write(6,'(" 4,4)Ends are Part of a Larger Panel.")') 
elseif (LEBC.eq.2) then 

wri te( 6 , ' ( " 4,4)Free at the Ends.")') 
elseif (LEBC.eq.3) then 

write ( 6 , ' ( ' ' 4,4)Simply Supported at the Ends. ")•) 
elseif (LEBC.eq.4) then 

write(6,'(' f 4,4)Semi-Clamped (axial 8 lateral free) at the End 
*s.")') 

elseif (LEBC.eq.5) then 

writeC 6 , ' ( " 4 , 4) Semi-Clamped (axial only free) at the Ends.") 
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*' ) 

el seif (LEBC.eq.6) then 

write(6,'(" 4,4)Fully Clamped (all DOF restricted) at the Ends 
*.")') 
endif 

if (LSBC.eq.l) then 

write(6,'(" 4,5)Sides are Part of a Larger Panel.")') 
elseif (LSBC.eq.2) then 

write(6,'(" 4,5)Free at the Sides.")') 
elseif (LSBC.eq.3) then 

write(6,'(" 4,5)Simply Supported at the Sides. ")') 
elseif (LSBC.eq.4) then 

write(6,'(" 4 , 5)Semi-Clamped (axial S lateral free) at the Sid 
*es. " ) ' ) 

elseif (LSBC.eq.5) then 

write(6,'(" 4 , 5 ) Semi-Clamped (axial only free) at the Sides.' 1 

*)•) 

elseif (LSBC.eq.6) then 

wri te( 6 , ' ( ' ■ 4,5)Fully Clamped (all DOF restricted) at the Side 
*s.")') 
endif 

writeC 6 , 1 ( " 

X i .).) 

write (6,30) 
if (LTOT.eq.l) then 

write( 6 , * ( 7x , " 4,6)Total Loads (lbs.):")') 
else 

write(6, '(7x, " 4,6)Line Loads ( lbs . -in .):")» ) 
endif 

write(6,38)FLCl) 
write(6,39)FL(2) 
writeC 6 ,40)FL(3) 
write(6,41)FL(4) 
writeC 6 , 42) 
if (NBUC.eq.l) then 

writeC 6 ,'( 7x ,' ' 4,11) Linear Analysis .'')* ) 
elseif (NBUC.eq.2) then 

write(6 , ' ( 7x, ' ' 4,11) Bifurcation Buckling Analysis. 9 *)') 
write (6, '(16x,i3, ' ' Mode(s) . ")' )M0 
elseif (NBUC.eq.3) then 

write ( 6 , ' ( 7x , ' ' 4,11) Post-Buckling Analysis.")') 
if (NDF.gt.O) then 
-TYPE= ' DIS . DOF ' 
writeC 6, 43) TYPE , NDF , ND , TAR 
else 

TYPE= ' LOAD FACTOR ' 
writeC 6 , 44) TYPE, TAR 
endif 
endif 

cXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
c FORMAT STATEMENTS FOR MODIFICATION 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

writeC 6 , ' ( ' ' - ")•) 

write(6,'(" Select m,n=> -l:Exit; 9:Quit; m,n: Other Menu or Upda 
*te. »"$)') 
ia( 1 )=0 
ia( 2)=0 

call NINTGC2 , ia) 

ISl=ia( 1 ) 

IS2=ia( 2) 
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if CISl.ne.4) then 
go to 999 
else 

if (IS2.eq.l) then 
writeC6,22) 
call STITLE(ans) 

if ( ans . eq . 1 N ' . or . ans . eq . 1 n 1 ) then 
LEND=2 
else 

LEND=1 

endif 

elseif CIS2.eq.2) then 
wr i te( 6 , 23) 
call NINTGC1 ,LRIB) 
elseif (IS2 .eq. 3) then 
wr ite ( 6 , 24 ) 
call NINTGC 1 , LRBC) 
elseif ( IS2 . eq . 4 ) then 
write (6,25) 
call NINTG(1,LEBC) 
elseif (IS2.eq.5) then 
writeC 6 , 26 ) 
call NINTGC 1 , LSBC) 

c ... 

c . modify loading conditions 

c ... 

elseif ( I S2 . eq . 6 ) then 
wri te( 6 ,31 ) 
call NINTGC 1 , LTOT ) 
elseif ( IS2 . eq . 7 ) then 
writeC6,34)FLCl) 
call NREALC 1 , ra) 

FL ( 1 )=ra( 1 ) 

elseif (IS2.eq.8) then 
writeC6,35)FLC2) 
call NREALC 1 , ra) 

FL C 2 ) = raC 1 ) 

elseif CIS2.eq.9) then 
writeC6,36)FLC3) 
call NREALC 1 , ra) 

FL C 3) =raC 1 ) 

elseif CIS2.eq.10) then 
writeC6,37)FLC4) 
call NREALC 1 ,ra) 

FL C 4 ) =raC 1 ) 

elseif ( IS2 . eq . 1 1 ) then 

writeC6 / , C* 1 Choose ONE of the following technique >> ,# ) 1 ) 

writeC6, , C ,f 1> Linear Solution . ,f ) 1 ) 

writeC6 i , C f ' 2> Bifurcation Buckling Analysis . * 1 )' ) 

writeC6, , C ,t 3> Post- Buckling Analysis . f *) 1 ) 

wr iteC 6 , 1 C 1 1 Enter>> • 1 $ ) f ) 

call NINTGC1,NBUC) 

if CNBUC.eq.3) then 

writeC6, , C ,f Type of Target -- 0) Load Factor. ,, ) , > 
writeC6, , C ,, 1-6) Displace. DOF. 11 ) 1 ) 

writeC6, , C fl Enter »"$)*) 

call NINTGC 1 , NDF) 
if CNDF.gt.O) then 

writeC 6 , 1 C * 1 Node Number 
call NINTGCl ,ND) 
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endif 

wri te( 6 , ' ( 1 ' Target Point = f, $) f ) 
call NREALC 1 , TAR) 
elseif CNBUC . eq . 2) then 

write^, 1 ^ 1 How many MODE shape(s) do you want (Max. 50 
*)? >>' '$)•) 

call NINTGC 1 ,M0) 
endif 
endif 
go to 50 
999 endif 
return 
end 

c ... 
c ... 

SUBROUTINE fsave 

common /mesh/ M, N , MI , NI , AX , BY , AC 1 0 ) , B( 10 ) , NGRID 

common /matl/ NMAT , El ( 3 , 10 , 5) , VI ( 3 , 1 0 ,5) ,G1 (3 , 10 , 5) , A1 ( 3 , 1 0 , 5) , 

1 SS (12, 10, 5), NT (10), NAME 

common /wall/ NLAY,MW(30 ) ,TW(30) , PW(30) 

common /sect)/ MTYP ,XH,XB,XC,XT ,MLAY( A) ,MS(30 , A) ,TS(30 , A) ,PS(30, A) 
common /load/ LARG, LEND, LRIB , LRBC, LEBC, LSBC, LT0T,FL( A) 
common /solve/ NBUC,TAR,NDF , ND,M0 

c ... 

c . save and update files 

c ... 

character NAME*80 
dimension NAME(IO) 

11 formate AI5,2F10.A) 

12 f ormat ( 6E12 . A ) 

13 formatC 15 , 2F1 0 . A) 

1A f ormat(8F10 . A) 

15 f ormat(6I5) 

16 f ormatC Ai3,f 10 . 5) 

writeC 1 0,11) M,N,MI ,NI , AX, BY 
M2 = M+2 
N2 = N+2 

writeC 1 0 , 1 A ) (A( I) ,1 = 1 ,M2) 
writeC 1 0 , 1 A ) ( B( I ) , 1 = 1 , N2) 

c ... 

writeC 10, 15) LEND, LRIB ,LRBC, LEBC, LSBC,LT0T 
writeC 10,12) (FL( I ) , 1=1 , A) 
write Cl 0 , 16 ) NBUC , NDF , ND ,M0 ,TAR 

c ... 
c ... 
c ... 

writeC 11,11) NMAT 
do 110 1=1, NMAT 
c. . . writeC 11,11) NTCI) 

c. . . do 110 J=1 , NTC I ) 

J=1 

writeC 11, 12) (E1(K,I , J) ,K=1 ,3) , ( VICK, I , J) ,K=1 ,3) 
writeC 11, 12) (G1 (K , I , J) ,K=1 , 3) , ( A1 (K , I , J) ,K=1 ,3) 
writeC 11 , 12) CSSCK, I , J) ,K=1 ,6) 

110 writeC 11, 12) C SSCK , I , J) ,K=7 , 12) 
c ... 

writeC 11,11) NLAY 
do 120 1=1, NLAY 

120 writeC 11,13) MWCI) ,TW(I) ,PWCI) 
writeC 11 , 11 ) MTYP 


A-52 



o o 


writeC 11,12) XH,XB,XC,XT 
if ( MTYP . eq . 1 . or . MTYP . eq . 5 ) then 
IP = 2 

elseif (MTYP.eq.2) then 
IP = 4 
else 
IP=3 
endif 

do 130 1=1, IP 
writeC 11,11) MLAYCI) 
do 130 J*l, MLAYCI) 

130 writeC 11 ,13) MS(J,I),TS(J,I),PS(J,I) 
c ... 

c . DIAL L3D2 Runstreams 

call fmesh 
call fband 
call fmatl 
call fload 
call fsolve 

call fclus 
call fscop 
return 
end 

SUBROUTINE fband 

c fband : BAND and SETUP runstreams 

c ... 

open( unit=12 , status^ 1 unknown • , f ile= 1 tapel2B .com') 
writeC 12 , * ( 1 • $band ,, ) f ) 
write (12, • ( • * open 6 "band . out" 1 1 )* ) 
writeC 12 ,•(•• start -1 : regps : band : stop • ')*) 
writeC 12 , * ( 1 • $ set up • 1 ) 1 ) 
writeC 12 , 1 ( 1 • open 6 "setup . out" • 1 ) f ) 
writeC 12 , 1 (' *start -1 : setup : stop •*)•) 
closeC uni t= 1 2 ) 
return 
end 

SUBROUTINE fmatl 

c ... 

c MATL runstream 

c . . . 

common /mesh/ M,N ,MI ,NI ,AX, BY, AC 10) , BC 10) ,NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5) , VI C 3 , 1 0 , 5) , G1 C 3, 10 ,5) , A1 (3 , 10 , 5 ) , 

1 SS(12,10,5),NT(10), NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY(4) ,MS(30,4) ,TS(30,A) ,PS(30,4) 
common /solve/ NBUC , TAR , NDF , ND ,M0 

CHAR ACTER*40 f mtl , f mt2 , f mt3 , f mt A , f mt5 , f mt6 , f mt7 , f mt8 , f mt Aa 
character NAME*80 
dimension NAME(IO) 

fmtl= , ( f •MATORT* • , 13 , 3ell . A , 3f 10 . A , »» >• • )' 

f mt2= 1 ( 9X , 3el 1 . A , 3f 10 . A) 1 

f mt3= 1 ( 1 * ORIENT* 1 , 13 , 1 1 0.,0.,0., I 11 ) 1 

f mt7= 1 ( 1 •MAT ALL* * , I3,6fll .4, 1 * >■')• 

fmt8 s 1 (9x,6f 11 . A) 1 

f mt<*= • ( • ' WALLAM ' 1 , 213 , 1 • >••)• 

fmt4a= ’ ( 13 , 1 ' >••)• 

fmt5= 9 ( 12X, F8 . 4 , f • >••)» 
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f mt6= 1 C 1 2X , F8 . A ) 1 


c . fmatl ^ DIAL MATL runstream 

c . . . 

openC unit = 12 , status= 1 unknown 1 , f ile= ' tapel2C .com') 
wri teC 1 2 , 1 C 1 1 Snat!") 1 ) 
writeC 12 , 9 C 1 1 open 6 "mat 1 . out" 1 1 ) 1 ) 
wri te( 12 ,'C ,f start -l' 1 )*) 
do 25 1 = 1 , NHAT 

writeC 1 2, fmtl) I , CE1 CK , 1 , 1 ) ,K = 1 ,3) , C VI CK , 1 , 1 ) ,K = 1 ,3) 
writeC 12, fmt2) (G1 (K , I , 1 ) ,K = 1 ,3) , (A1 CK , I , 1 ) ,K = 1 ,3) 

writeC12,fmt3) I 

writeC 12, fmt7) I , ( SSCK ,1,1) ,K=1 , 6 ) 

25 writeC 1 2, fmt8) C SSCK , 1,1), K = 7 , 12) 

c ... 

MM= 1 0 

writeC 12 ,f mtA) MM, NLAY 
do 26 i=l , NLAY 

writeC 12 , f mtAa )MWC I ) 

26 continue 

do 27 i=l , NLAY 

writeC12,fmt5)TWCI) 

27 continue 

do 28 i= 1 , ML AY- 1 

writeC12,fmt5)PWCI) 

28 continue 

writeC 12, fmt6)PWC NLAY) 

c ... 

if C MTYP . eq . 1 . or . MTYP . eq . 5 ) then 
I P = 2 

elseif CMTYP.eq.2) then 
IP = A 
else 
IP = 3 
endif 

do 30 1=1, IP 
MM= 10 + I 

writeC 12 , f mt A ) MM,MLAYC I ) 
do 31 j = 1 ,MLAYC I ) 

writeC12,fmtAa)MSCJ,I) 

31 continue 

do 32 3 = 1 , MLAYC I ) 

writeC 12 , f mt5)TSC J , I ) 

32 continue 

do 33 j = l , MLAYC I ) - 1 

writeC 1 2, fmt5)PSCJ, I) 

33 continue 

writeC 12, fmt6)PSC MLAYC I) ,1) 

30 continue 
c ... 

writeC12, f C * * matl : stop r * ) 1 ) 

c ... 

closeCunit=12) 

return 

end 

SUBROUTINE fload 

c ... 

c . LOAD runstream 


common /mesh/ M, N, MI, NI, AX, BY, AC 10), BC10) , NGRID 
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common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI ( 3 , 1 0 , 5) ,G1 C 3 , 1 0 , 5 ) , A1 ( 3 , 1 0 , 5) , 

1 SS (12, 10, 5), NT (10), NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY( A ) , MS( 30 ,4 ) , TS( 30 , A) , PS( 30 , 4 ) 
common /load/ L ARG , LEND , LRIB , LRBC , LEBC, LSBC , LTOT, FL ( 4) 
common /solve/ NBUC , TAR , NDF , ND , MO 

c ... 

c . fload : DIAL LOAD runstream 
c ... 

dimension NAME(10) 
character NAME*80 
real temp(6) 

open( unit=12 , status= * unknown 1 , f ile= * tape 1 2D . com 1 ) 
write( 12 , * ( 1 * $load ,, ) f ) 
write( 12 , ' ( f f open 6 "load . out” f, ) f ) 
write( 1 2 , * ( * ' start -l* 1 )*) 

c ... 

write( 12 , * ( 1 1 mset 11 copy nset=l 1 * * ) * ) 
wri te( 1 2 , * ( 1 ' mset 11 mask type msh*')*) 

wri te( 1 2 , * ( 1 * mset 11 mask volu -999. 999. -999. 999. -0.001 0.001 
***)*) 

write( 12 , * ( 1 1 mset 12 copy nset-12") 1 ) 
writeC 12 ,'( 1 ' mset 12 mask type msh* f )*) 

writeC 12, * (* * mset 12 mask volu -999. 999. -999. 999. -0.001 0.001 
** *) 1 ) 

writeC 12 , f ( * * mset 13 copy nset=13 ,, ) , ) 

C 9/10/91, inserted 1 line as follows, per Tony Wei 
wri te( 12 , * ( 1 * mset 13 mask type msh**)*) 
wri te( 1 2 , ' ( 1 1 mset 14 copy nset = 14 ,f ) r ) 

C 9/10/91, inserted 1 line as follows, per Tony Wei 
writeC 12, 1 (• • mset 14 mask type msh 1 1 ) 1 ) 
tempC 1 )=FL( 1 ) 
temp(2)=FL(2) 
tempC 3) = FL(3) 
temp(4)=FL(4) 
if (LTOT .eq. 1) then 
tempC 1 ) =temp( 1 ) /AX 
tempC 2) = temp( 2)/BY 
tempC 3 ) = tempC 3 )/AX 
tmp=temp( 3)/BY 
endif 

if (LTOT .eq. 2) then 
tmp-temp( 3 ) 
endif 

writeC 12, 1 ( 1 1 lease 1 1 • ) 1 ) 


writeC 12, 


pline * 

' ,f 10 . 2, 

'Ml, 

0,4 

mset=ll * 

*)* ) 

-tempC 1 ) 

writeC 12 , 

'(" 

pline ' 

' ,f 10 . 2, 

'Ml, 

0,2 

mset=12 * 

*)* ) 

tempC 1 ) 

writeC 12 , 

> ( «. 

pline 1 

' ,f 10 . 2, 

”,12, 

0,1 

mset= 13 * 

*)* ) 

-tempC 2) 

writeC 12 , 

f ( t. 

pline 1 

' , f 1 0 . 2 , 

' ’ ,12, 

ro 

o 

mset=14 * 

*)*) 

tempC 2) 

writeC 12 , 

•(••• 

pline* 

' ,fl0. 2, 

”,12, 

0,4 

mset = l 1 * 

*)*) 

tempC 3) 

writeC 12 , 

« ( i. 

pline* 

' ,f 10 . 2, 

”,12, 

0,2 

mset=12* 

* )*) 

-tempC 3) 

writeC 12 , 


pline * 

' , f 1 0 . 2, 

”,11, 

0,1 

mset=13 * 

* )*) 

tmp 

writeC 12, 


pline * 

' 1 0 . 2, 

•Ml, 

0,3 

mset = 14 * 

*)*) 

- tmp 

writeC 1 2 , 

f ( . r 

psurf * 

' ,f 10 .2, 

”,13, 

0 , mesh=l * * ) * 

) -FLC4) 


writeC 12, •( 9 1 load : stop 11 )') 


closeC uni t=l 2 ) 

return 

end 
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SUBROUTINE fsolve 


c . SOLVE runstream 
c ... 

common /mesh/ M , N , MI , NI , AX , BY , AC 10 ) , B( 1 0 ) , N6RID 

common /matl/ NMAT ,E1C 3 , 1 0 , 5) , VI (3 , 10 , 5) ,G1 (3 , 10 ,5) , A1 (3, 10 ,5) , 

1 SS(12,10,5) , NTC 1 0 ) , NAME 

common /wall/ NL AY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ HTYP , XH,XB,XC,XT,MLAY(4) , MS (30, 4) ,TS(30 , A) ,PS(3Q , A) 

common /load/ LARG,LEND,LRIB,LRBC,LEBC,LSBC,LTOT,FL(A) 

common /solve/ NBUC , TAR , NDF , ND , MO 

dimension NAMEC10) 

character NAMEX80 


c . . . 
c . 
c 

100 


fsolve : DIAL SOLVE runstream 

formatC' loads *,i2,fl2.4) 

open(unit=12,status= 'unknown 1 , f ile= ' tapel2E.com') 
if (NBUC.eq.2) then 


wri te( 12 , ' ( 

« « 

$solvedp ' * ) ' ) 

writeC 12, ' ( 

• • 

open 6 "solve. out"" )' 

wri te( 12 , * ( 

« « 

start “1")') 

writeC 12 , ' ( 

• • 

ASSIGN IMPR=l") f ) 

write (12, 100)1 ,1 . 

writeC 12 , * ( 


SAVE , D " ) ' ) 

writeC 12 , ' ( 


SAVE, S' ' )' ) 

writeC 12 , ' C 


nprint , D ' ' ) ' ) 

writeC 12 , ' ( 


eprint , S ' ' ) 1 ) 

writeC 12 , ' ( 


EIGEN 2")') 

writeC 12 , ' ( 


solve")') 

writeC 12 , ' ( 


stop")'.) 

writeC 12 , 1 ( 


$clusterdp ' ' ) 1 ) 

writeC 12 , ' ( 


start -1")') 

writeC 12 , 1 ( 


assign mxit=50") f ) 

writeC 12 , ' C 


shift " , i3) ' )M0 

writeC 1 2 , ' ( 


save ' ' ) ' ) 

writeC 1 2 , ' ( 


matrix : f ile ,ki ki") 1 ) 

writeC 12, * ( 


clust 2")') 

writeC 12 , ' ( 


stop")') 

elseif C NBUC . eq 

.1) then 

writeC 12 , ' ( 

> • 

$solvedp")') 

writeC 12 , ' ( 

V ff 

open 6 "solve . out" ") • 

wri-te( 12 , ' ( 

1 V 

start -l") f ) 

writeC 12 , ' ( 

t 1 

ASSIGN IMPR*!") 1 ) 

write(12, 100)1,1. 

writeC 12 , ' ( 

f « 

SAVE , D " ) ' ) 

writeC 12 , ' ( 

V « 

SAVE , S " ) ' ) 

writeC 12 , ' C 

« I 

nprint, D' • ) ' ) 

writeC 12 , ' ( 

V 1 

eprint , S " ) ' ) 

writeC 12 , ' ( 

V 1 

solve")') 

writeC 12 , ' ( 

■ « 

stop")') 

elseif ( NBUC . eq 

. 3) then 

writeC 12 , ' C 

V 1 

$solvedp " ) ' ) 

writeC 12 , ' ( 

« « 

open 6 "solve, out"")' 

writeC 12 , ' ( 

« « 

start -1")') 

writeC 12 , ' ( 

« « 

ASSIGN IMPR = 1 " ) ' ) 

writeC 12 , 1 ( 

« V 

static 2")') 

writeC 12 , * ( 

I f 

branch Oil")') 

writeC 12, 1 C 

1 I 

loads 1 1. 1. 1.")') 

writeC 12 , ' C 

1 • 

limit load") 1 ) 


A-56 



c 

c 

c 


c 

c 

c 


c 

c 

c 


if ( NF . ge . 1 ) then 

writeC 12 , * ( " Target ",fl2.5," Node* " , 2i4 ) ' )TAR , NDF , ND 
else 

writeC 12, '( 1 f Target* 1 >f 12.5) ■ )TAR 
endif 

writeC 1 2 , * ( * * save,d")’) 
writeC 12 , ' ( " savers**)*) 

writeC 12, * ( ' * assign slf=0.5, relr=0.02, stol=0.25, gtol=0.25'* 

*) * ) 

writeC 12 , * C " solve 1 " ) * ) 
write ( 12 , ' ( " stop**)*) 
endif 

closeCuni t=12) 

return 

end 

SUBROUTINE fmesh 
MESH runstream 

common /mesh/ M,N,MI,NI,AX,BY,A(10),B(10) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI ( 3 , 1 0 , 5 ) , G1 ( 3 , 1 0 , 5 ) , A1 C 3 , 1 0 , 5) , 

1 $S (12, 10, 5), NT (10) , NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /sect/ MTYP , XH , XB , XC , XT , MLAYC A ) , MS( 30 , A ) , TSC 30 , A) , PS( 30 , 4 ) 

common /load/ LARG, LEND, LRIB , LRBC, LEBC, LSBC, LT0T,FL( A) 

common /solve/ NBUC , TAR , NDF , ND , MO 

CHARACTERS 0 f mt 1 , f mt2 , f mt3 , f mt A , f mt5 , f mt6 , f mt6b 

CHAR ACTE R#60 f mt7 ,f mt8 , f mt9 , fmtO , f mta , fmtb,f mtc , f mtz , f mty , f mtz2 

character NAME*80 

dimension NAMEC10) 


VARIABLE DEFINITION TABLE 


fmtl = * ( * 
f mt2= * ( * 
f mt3= 1 ( 1 
f mta= * ( * 
f mt A- * ( f 
f mt5= * ( * 
fmtb=*( ' 
f mt6 = * ( * 
f mt6b= * ( 
fmt7=V( * 
fmt8= 1 ( 1 
fmt9=*(* 
fmtO- f ( 1 
f mtc= * ( * 
f mtz= * ( * 
f mtz2= * ( 


IJ POINT' * ,3I3,3fl0 .A) * 

1 1 ,313, 3f 1 0 .A) * 

SLINE* * ,613)* 

CIRCLE ’ ',313)* 

KNAME 0 0 ' ' , 213 , * ' kp'*,!!)* 

IJSHELL' * ,2I3,4f 10 .4, 13, * * MSH, 1 , - 1 , 0 , 0 , BASE ' 1 ) * 

MSET 10, COPY, NAME=BASE ' 1 ) 1 

IJSHELL* * ,213, Af 10 . A, 13, * * MSH , 1 , - 1 , 0 , 0 ' ' ) * 

* IJSHELL ' * ,213, 4f 10. 4, 13, ' ' MSH , 1 , -2 , 0 , 0 * * ) * 
PRISM* * , 13, 3f 10 . A) ' 

TRANS" ,fl0.4, " 2")* 

KNAME " , 41 3 , * ' kb**,Il)' 

ELTNAME STF* ’ ,11 , * » ,STIF, , , ,MESH=XIPP( 9 ) * 1 ) * 
MSET" ,13, ' * , COPY, ANAME=STF " , 1 1 ) ' 

IJSHELL" ,213, 4f 10. 4, 13," MSH, 1 , - 1 , 0 , 0 ,part * * ) * 
•IJSHELL* * ,213 , 4f 1 0 .4,13, ' ' MSH , 1 , -2 , 0, 0 , part " ) 1 


fmty='( "BCSYS" ,313, f 10.4, ' * 


1 . e+9 , nset= ")* 


fmesh : DIAL MESH runstream 


open ( uni t=12 , status* 'unknown* , file* ' tapel2A. com* ) 
writeC 12 , ' ( * ' $mesh **)*) 
write(12, '( * 'open 6 "mesh . out" ")* ) 
writeC 12, * ( 1 'clear -1* * ) * ) 
writeC 12 , ' ( * ' el type 4,2,6")*) 
writeC 12 ,'(' 'set syntax on'*)') 

writeC 12 , ' ( * 'assign IPNO=0 IPLC=0 IPEL=0 IPC0=0 ")*) 
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c 


wri te C 1 2 , 1 ( 1 1 # MESH Number 1, base panel 11 ) 1 ) 

J0 = 1 
IP1 = 1 
JA1 = 1 
XA1 =0 . 

wri te( 12 , f mtl ) I PI , JA1 , JO , XA1 , XA1 
IP=2+5*M 

JA=1+8*M+2*MI*(M+1) 

XA=AX 

wr i te( 12 , f mt2 ) I P , JA , JO , XA1 , XA 
do 10 L«1,M 
I P6=5*L+1 
I P5=5*L 
I PA=5*L- 1 
IP3=5*L-2 
IP2=5*L-3 
JA6=1+2*(MI+A)*L 
JA5=l+2*(MI+A)*L-2 
JAA=1+2*(MI+A )*L- A 
JA3=l+2*( MI+A )*L-6 
JA2= l+2*( MI+A )*L-8 
if ( MTYP . eq . 2 . or . MTYP . eq . 8 ) then 

c... Global Y coor. for stiff. 2, or 8 

XA6 = A( l + D+XB/2. 

XA5=A( 1+L )+XC/2 . 

XAA=A( 1+L ) 

XA3=A( 1+L ) -XC/2 . 

XA2=A( 1+L ) -XB/2 . 

c... Global Y coor. for stiff. 5, or 6 

elseif (MTYP.eq.7) then 

c... Global Y coor. for stiff. 7 

XA6=A( l + D+XB/2 . 

XA5=A( 1+L )+XH 
XAA=A( 1+L ) 

XA3=A( 1+L ) -XH 
XA2=A( 1+L ) “XB/2 . 
else 

c... Global Y coor. for stiff. 1,2, or 3, A, 6 ... 
XA6=A( 1+L ) +XB-XC 
XA5=A( l+L)+(XB-XC)/2. 

XAA=A( 1+L ) 

XAS=A( 1+L ) “XC/2 . 

XA2=A( 1+L ) -XC 
endif 

write ( 12 , fmt2) I P2 , JA2 , JO , XA1 , XA2 
write ( 12 ,fmt2) I P3 , JA3 , JO , XA1 , XA3 
wr i te ( 1 2 , f mt 2 ) I P A , JAA , JO , XA1 , XAA 
write ( 12, fmt2) I P5 , JA5 , JO , XA1 , XA5 
10 write ( 12, fmt2) IP6 , JA6 , JO ,XA1 ,XA6 
c ... 

Ll = l 
L2=2 
L3 = 3 
LA = A 

writeC 12 , f mt3) L1,L2,L3,LA 

L1=M*5-1 

L2=M*5 

L3=M*5+1 

LA=M*5+2 
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write (12, f mt3 ) L1,L2,L3,LA 

do 20 L=1,M-1 

L1=L*5-1 

L2=L*5 

L3=L*5+1 

L4=L*5+2 

L5=L*5+3 

L6=L*5+4 

20 writeC 1 2, fmt3) LI , L2 A3 , LA , L5 # L6 
L0 = 1 

L9=M*5+2 
T9 = 0 

do 25 L=1,NLAY 

25 T9=T9+TW( L ) 

W9 = 0 . 

M9 = l 0 

c ... 

il = 1 
12=2 

do 26 i = 1 , M+l 

write ( 12 , f mt5 ) il , 12 , T9 , T9 , W9 , W9 , M9 

il=i 1+5 

i2=i2+5 

26 continue 
c ... 

do 30 L=1,N+1 
KB=L*2*NI+1 
XTT=0 . 

L1=L+1 
YB=B( LI ) 

30 writeC 1 2 , f mt7 ) KB , YB 
do 33 L=1 , N+2 
KB=L*2*NI-NI#2+1 
33 writeC 12 , f mt A ) KB,KB, L 
writeC 1 2 , 1 ( * 1 nsave")') 
if (NBUC .eq. 2 .or. NBUC .eq. 3) then 
writeC 12, 1 ( 1 1 refine 0022 ,f ) f ) 
endif 

writeC 12 , ' ( 1 'mesh* • ) 1 ) 

c ... 

c Stiffener Type I.D. 
c . 1 : Blade 2 ; Hat 

c . 3: I-sKape 4: J-shape 

c . 5: Angle 6: Zee 

c . 7: Bead 8: Open Hat 

c ... 

35 continue 

goto (110, 120, 130, 140, 150, 160, 170, 180) mtyp 
c ... Blade . . . 

110 IP1=1 

IP2=2 
IP3=3 
IP4 = 4 
IP5=5 
IP6 = 6 
JA1 = 1 
JA2=3 
JA3=5 
JA4=7 
JA5=9 
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JA6= JA3 
JB1 = 1 
JB6 = 3 
XY =0. 

XA1 =A( 2 ) -XC 
XA2=A( 2 ) -XC/2 . 

XA3=A( 2 ) 

XAA = A( 2) + C XB-XO/2 . 

XA5=A(2)+XB-XC 

XA6=XA3 

YA6 = 0 . 

ZA6=XH 

write(12,fmtl) IP1 , JA1 , JB1 , XY,XA1 
write(12,fmt2) IP2 , JA2 , JB1 , XY , XA2 
write(12,fmt2) IP3 , JA3 , JB1 , XY , XA3 
wri te ( 1 2 , f mt2 ) I PA , JA« , JB 1 , XY , XAA 
wri te( 1 2 , f mt2 ) IPS , JA5 , JB1 , XY , XA5 
wr i te ( 1 2 , f mt 2 ) IP6 , JA6 , JB6 , XY , XA6 , ZA6 
write(12,fmt3) IP1 , IP2 , IP3 , IPA , IPS 
writeC 12 ,fmt3) IP3,IP6 
HI 1=1 1 
HI 2=12 
YA7=0 . 

c 51 continue 
T1 1 =0 . 

T1 2=0 . 

do 51 i=l jHLAYC 1 ) 

T1 1=T1 1+tsC i , 1 ) 

51 continue 

do 52 i=l,HLAY(2> 

T12=T12+ts(i,2) 

52 continue 

write(12,fmt6) IP1 , IP5,T1 1 ,T11 ,YA7 ,YA7 ,M11 
writeC 12 j f mt6 ) IP3, IP6 ,112 ,T12,YA6 ,YA6,M12 
go to 190 

c ... Close Hat . . . 

120 IP1 = 1 
IP2=2 
IP3=3 
IPA = A 
IP5=5 
IP6 = 6 
IP7 = 7 
IP8=8 
JA1 = 1 
JA2=3 
JA3=5 
JA4=7 
JA5=9 
JA6= JA2 
JA7= JA3 
JA8= JA4 
JB1 = 1 
JB6 = 3 

XA1=A(2) -XB/2 . 

XA2=A( 2) -XC/2 . 

XA3=A( 2) 

XAA=A( 2 )+XC/2 . 

XA5=A( 21+XB/2 . 

XA6=A( 2) -XT/2 . 
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XA7=AC2) 

XA8=A( 2 ) +XT /2 . 

YA6 = 0 . 

ZA6=XH 

write C 12 ,fmtl) IP1, JA1 # JB1 ,YA6,XA1 

writeC 1 2, fmt2) IP2 , JA2, JB1 ,YA6,XA2 

writeC 1 2 , f mt2 ) IP3 , JA3 , JB1 , YA6 , XA3 

writeC 12, fmt2) IP4 , JA4 , JB1 , YA6 , XA4 

writeC 12, fmt2) IPS , JA5 , JB1 , YA6 , XA5 

writeC 12, f mt2) IP6 , JA6 , JB6 , YA6 , XA6 , ZA6 

writeC 12 , f mt2) IP7 , JA7 , JB6 , YA6 , XA7 , ZA6 

wr i te ( 1 2 , f mt2 ) IPS , JA8 , JB6 , YA6 , XA8 , Z A6 

writeC 12, fmt3) IP1 , IP2 , IP3 , IP4 , IP5 

writeC 12 , f mt3 ) IP6,IP7,IP8 

writeC 12 , f mt3 ) IP2,IP6 

writeC 12 , f mt3 ) IP4,IP8 

Mll=ll 

M12= 12 

M13=13 

M14=14 

YA7=0 . 

YA8=0 . 

T11=0 . 

T14=0 . 

T12=0 . 

T13=0 . 

do 53 i = 1 ,MLAYC 1 ) 
tl l=t 1 1+tsC i , 1 ) 

53 continue 

do 54 i = 1 ,MLAYC 2) 
tl2=tl2+tsC i , 2) 

54 continue 

do 55 i = 1 , MLAYC 3) 
tl3=tl3+tsCi,3) 

55 continue 

do 56 i = 1 , MLAYC 4 ) 
t 14=tl 4+tsC i ,2) 

56 continue 

writeC 12, fmt6) IP1 , IP2,T11 ,T11 ,YA7 ,YA7 ,M11 
writeC 12, fmt6) IP2,IP4,T14,T14,YA8,YA8,H14 
writeC 12, fmt6) IP4 , IPS , Tl 1 , Tl 1 , YA7 , YA7 , Ml 1 
writeC 12, fmt6b) IP2 , IP6 , T12 , T12 , YA6 , YA6 , M12 
writeC 12 , f mt6 ) IP6 , IP8,T13,T13,YA6 ,YA6,M13 
writeC 12, fmtz) IP8, IP4,T12,T12,YA6,YA6 ,M12 
go to 190 
c ... I-shape . . . 

130 IP1=1 

IP2=2 
IP3=3 
IP4=4 
IP5=5 
IP6=6 
IP7 = 7 
IP8=8 
JA1 = 1 
JA2-3 
JA3=5 
JA4 = 7 
JA5=9 
JA6= JA3 
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JA7= JA2 
JA8=JA4 
JB1 = 1 
JB6 = 3 

XA1 =A( 2 ) -XC 
XA2 = AC 2 ) -XC/2 . 

XA3=A( 2) 

XA4=AC2)+CXB-XC)/2. 

XA5 = AC 2 ) +XB-XC 
XA6 = AC 2 ) 

XA7=A( 2 ) -XT/2 . 

XA8=A( 2 )+XT/2 . 

ZA6=XH 
YA6 = 0 . 

Ml 1 = 1 1 
M12= 12 
M13= 13 

wri teC 12 , f mtl ) IP1 , JA1 , JB1 , YA6 , XA1 
write ( 12,fmt2) IP2 , JA2 , JB1 ,YA6 ,XA2 
writeC 12 ,f mt2) IP3 , JA3 , JB1 , YA6 , XA3 
wr i te ( 1 2 , f mt 2 ) I P A , JA4 , JB 1 , YA6 , XA4 
writeC 1 2, fmt2) IP5 , JA5 , JB1 , YA6 ,XA5 
writeC 1 2 , f mt2 ) IP6 , JA6 , JB6 , YA6 , XA6 ,ZA6 
writeC 1 2, fmt2) IP7 , JA7 , JB6 , YA6 , XA7 ,ZA6 
writeC 12 ,fmt2) IP8 , JA8 , JB6 , YA6 , XA8 ,ZA6 
writeC 1 2, fmt3) IP1 , IP2 , IP3 , IP4 , IPS 
writeC 1 2 , f mt3) IP3,IP6 
writeC 12 , fmt3) IP7,IP6 
writeC 12 , fmt3) IP6,IP8 
YA7 = 0 . 

c do 55 i=l,MLAYCl) 

111=0. 

T12=0 . 

T13=0 . 

do 57 i=l,MLAYCl) 
tl l=tll+tsC i , 1 ) 

57 continue 

do 58 i = l ,MLAYC 2) 
t 12=tl2+tsC i ,2) 

58 continue 

do 59 i = l ,MLAYC 3) 
tl3=tl3+tsCi,3) 

59 contin.ue 

writeC 12, fmt6) IP1 , IPS, Til ,T11 ,YA7 ,YA7 ,M11 
writeC 12, fmt6) IP3 , IP6 ,T12 ,T12,YA6 , YA6 ,M12 
writeC 12, fmt6> IP7 , IP6 ,T13 ,T13 ,YA6 , YA6 ,M13 
writeC 12, fmt6) IP6 , IP8 ,T13 ,T13 ,YA6 ,YA6 ,M13 
go to 190 
c ... J-shape . . . 

140 IP1=1 

IP2=2 
IP3=3 
IP4 = 4 
IP5=5 
IP6 = 6 
IP7 = 7 
JA1 = 1 
JA2=3 
JA3 = 5 
JA4 = 7 
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JA5=9 
JA6= JA3 
JA7= JA3 
JB1 = 1 
JB6 = 3 
JB7 = 5 

XA1=AC2)-XC 
XA2=A( 2 ) -XC/2 . 

XA3=A( 2 ) 

XA4=AC 2)+CXB-XC)/2. 

XA5=A(2)+XB-XC 
XA6 = AC 2 ) 

XA7=AC2) -XT 
ZA6=XH 
YA6 = 0 . 

Mll = l 1 
M12=12 
M13=13 

writeC 12 , f mtl ) IP1 , JA1 , JB1 , YA6 , XA1 
writeC 12 , f mt2) IP2 , JA2 , JB1 , YA6 , XA2 
writeC 12 , f mt2) IP3 , JA3 , JB1 , YA6 , XA3 
writeC 1 2, fmt2) IP4 , JAA , JB1 , YA6 , XA4 
writeC 12, fmt2) IP5 , JA5 , JB1 ,YA6,XA5 
wr i te C 1 2 , f mt2 ) IP6 , JA6 , JB6 , YA6 , XA6 , ZA6 
writeC 12, fmt2) IP7 , JA7 , JB7 , YA6 , XA7 ,ZA6 
writeC 12, fmt3) IP1 , IP2, IP3 , IP* , IP5 
writeC 12 , f mt3 ) IP3,IP6 
writeC 12 , f mt3 ) IP6,IP7 
YA7=0 . 

T11=0 . 

T12=0 . 

T13=0 . 

do 60 i=l ,MLAYC 1 ) 
tl 1 =tl 1+tsC i , 1 ) 

60 continue 

do 61 i=l,MLAYC2) 
tl2=tl2+tsCi ,2) 

61 continue 

do 62 i = l ,MLAYC 3) 
tl3=tl3+tsC i , 3) 

62 continue 

writeC 12, fmt6) IP1 , I P5 , T1 1 , T1 1 , YA7 , YA7 ,M1 1 
writeC12,fmt6) IP3 , IP6 ,T12 ,T12, YA6 , YA6 ,H12 
writeC 12, fmt6) IP6 , IP7 ,T13 ,T13 ,YA6 ,YA6 ,M13 
go to 190 
c ... Angle . . . 

150 IP1=1 

IP2=2 
IP3=3 
IP4=4 
IP5=5 
IP6=6 
JA1 = 1 
JA2=3 
JA3=5 
JAA=7 
JA5=9 
JA6= JA3 
JB1 = 1 
JB6 = 3 
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XY =0. 

XA1=AC 2) -XC 
XA2=A( 2 ) -XC/2 . 

XA3=AC 2 ) 

XA4 = AC 2) + C XB-XO/2 . 

XA5=A( 2) +XB-XC 

XA6=XA3 

YA6 = 0 . 

ZA6=XH 

wri te( 12 , f mtl ) IP1 , JA1 , JB1 , XY , XA1 
writeC 12 ,fmt2) IP2 , JA2 , JB1 , XY , XA2 
wri te ( 1 2 , f mt2 ) IP3 , JA3, JB1 , XY , XA3 
writeC 12, fmt2) IP4 , JA4 , JB1 , XY ,XA4 
writeC 12, fmt2) IPS , JA5 , JB1 , XY,XA5 
writeC 12, fmt2) IP6 , JA6 , JB6 ,XY,XA6 ,ZA6 
writeC 12, fmt3) IP1 , IP2 , IP3 , IP4 , IPS 
writeC 12 , fmt3 ) IP3,IP6 
Ml 1=1 1 
M12=12 
YA7=0 . 

T1 1=0 . 

T12=0 . 

do 63 i= 1 , MLAY Cl) 
tl l=tl 1+tsC i , 1 ) 

63 continue 

do 64 i= 1 ,MLAYC 2) 
tl2=tl2+tsCi , 2) 

64 continue 

writeC 1 2, fmt6) IP1 , IP3,T1 1 ,T11 , YA7 ,YA7 ,M11 
writeC 12, fmt6) IP3 , IP6 , T12 , T12 , YA6 , YA6 ,M12 
writeC 12, fmt6) IP3 , IPS, T9 ,T9 , YA7 ,YA7 ,M9 
go to 190 
c ... Zee-shape . 

160 IP1=1 

IP2=2 
IP3=3 
IP4 = 4 
IP5 = 5 
IP6 = 6 
IP7 = 7 
JA1 = 1 
JA2=3 
JA3=5 
JA4=7 
JA5=9 
JA6= JA3 
JA7= JA3 
JB1 = 1 
JB6 = 3 
JB7 = 5 

XA1=AC 2) -XB/2 . 

XA2=AC 2) -XB/4 . 

XA3=AC 2) 

XA4 = AC 2)+XB/4 . 

XA5 = AC 2 ) + XB/2 . 

XA6 = AC 2) 

XA7 = AC 2) -XT 
ZA6=XH 
YA6 = 0 . 

Mll=ll 
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M12=12 
H13= 13 

write( 12 , fmtl ) IP1 , JA1 , JB1 , YA6 ,XA1 
writeC 12 , f mt2 ) IP2, JA2,JB1 ,YA6,XA2 
write ( 12, fmt2) I P3 , JA3 , JB1 , YA6 , XA3 
wri te( 12 , f mt2 ) IPA , JAA , JB1 , YA6 ,XAA 
writeC 12 , f mt2 ) IPS , JA5, JB1 , YA6 ,XA5 
writeC 12 , f mt2 ) IP6 , JA6 , JB6 , YA6 , XA6 , ZA6 
writeC 12, fmt2) IP7 , JA7 , JB7 , YA6 ,XA7 ,ZA6 
writeC 12 , f mt3 ) IP1 , IP2, IP3 , IPA, IPS 
writeC 12 , f mt3) IP3,IP6 
writeC 12 , f mt3) IP6,IP7 
YA7=0 . 

T11=0 . 

T12=0 . 

T13=0 . 

do 65 i=l , MLAYC 1 ) 
tl 1 = tl 1+tsC i , 1 ) 

65 continue 

do 66 i = 1 , MLAYC 2 ) 
tl2=tl2+tsCi,2) 

66 continue 

do 67 i = l , MLAYC 3 ) 
tl 3=tl3+tsC i , 3 ) 

67 continue 

writeC 12, fmt6) IP1 , IP3 ,T9 ,T9 , YA7 , YA7 ,M9 
writeC 12, fmt6) IP3 , IP5 ,T1 1 , Tl 1 , YA7 , YA7 , Ml 1 
writeC 12, fmt6) IP3,IP6,T12,T12,YA6,YA6,M12 
writeC 12, fmt6) IP6 , IP7 ,T13 , T13 , YA6 , YA6 ,M13 
go to 190 
c ... Bead . . . 

170 IP1=1 

IP2=2 
IP3=3 
IPA=A 
IP5=5 
IP6=6 
IP7 = 7 
IP8=8 
JA1 = 1 
JA2=3 
JA3=5 
JAA=7 , 

JA5=9 
JA6= JA2 
JA7= JA3 
JA8= JAA 
JB1 = 1 
JB6=3 

XA1=AC 2 ) -XB/2 . 

XA2=AC 2 ) -XH 
XA3=AC 2) 

XAA=AC 2)+XH 
XA5=AC 2 ) + XB/2 . 

XA6=AC 2) - 0 . 707*XH 
XA7=AC 2 ) 

XA8=AC 2) + 0 . 707*XH 
YA6=0 . 

ZA6=0 . 707*XH 
ZA7=XH 
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ZA8=0.707*XH 

write(12,fmtl) IP1,JA1, JB1 ,YA6,XA1 

write(12,fmt2) IP2,JA2, JB1 ,YA6,XA2 

write(12,fmt2) IP3 , JA3 , JB1 ,YA6,XA3 

write(12,fmt2) IPA , JAA , JB1 ,YA6,XAA 

write(12,fmt2) IPS , JA5 , JB1 ,YA6,XA5 

write (12, f mt2 ) IP6 , JA6 , JB6 , YA6 , XA6 , ZA6 

wr i te ( 1 2 , f mt2 ) I P7 , JA7 , JB6 , YA6 , XA7 , ZA7 

wr i te ( 1 2 , f mt2 ) IP8 , JA8 , JB6 , YA6 , XA8 , ZA8 

write ( 12, fmt3) IP1 , IP2 , IP3 , IPA , IPS 

write (12, f mta ) IP2,IP6,IP3 

write ( 1 2 , f mta ) IP6,IP7,IP3 

write (12, f mta ) IP7,IP8,IP3 

write (12, f mta ) IP8,IPA,IP3 

Ml 1 = 1 1 

M12=12 

H13=l 3 

YA7=0 . 

YA8=0 . 

T1 1 = 0 . 

T12=0 . 

T13=0 . 

do 68 i = l ,MLAY( 1 ) 
t 1 l=t 1 l+ts( i , 1 ) 

68 continue 

do 69 i=l ,MLAY( 2) 
t!2=tl2+ts( i ,2) 

69 continue 

do 70 i=l ,HLAY( 3) 
t 13= tl 3+ts( i ,3) 

70 continue 

write(12,fmt6) IP1 , IP2 , T1 1 , T1 1 , YA7 , YA7 ,M1 1 
write(12,fmt6) IP2 , IPA , T13 , T13 , YA8 , YA8 , M13 
wri te( 12 , f mt6 ) I PA, I PS, Til, Til , YA7 ,YA7 ,M11 
write( 12 ,fmt6b) IP2 , IP6 , T12 , T12 , YA6 , YA6 ,M12 
wr i te( 12 , f mt6 ) IP6 , IP8 ,T12,T12 , YA6 ,YA6 ,M12 
wri te( 12 , f mtz ) IP8 , IPA , T12 ,T12 , YA6 , YA6 ,M12 
go to 190 

c Open Hat .... 

180 IP1 = 1 
IP2 = 2 
IP3 = 3 
IPA = A 
IPS = 5 
IP6 = 6 
IP7 = 7 
IP8 = 8 
IP9 = 9 
JA1 = 1 
JA2 = 3 
JA3 = 5 
JAA = 7 
JA5 = 9 
JA6 = JA2 
JA7 = JA1 
JA8 = JAA 
JA9 = JA5 
JB1 = 1 
JB6 = 3 

XA1 = A( 2 ) - XB/2 . 
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XA2 = AC 2) - XC/2 . 

XA3 = AC 2) 

XA4 = AC 2 ) + XC/2. 

XA5 = AC 2) + XB/2 . 

XA6 = AC 2) - XC/2. 

XA7 = AC 2) - XT/2. 

XA8 = AC 2) + XC/2. 

XA9 = AC 2) + XT/2. 

VA6 = 0. 

ZA6 = XH 

wri teC 12 , fmtl ) IP1,JA1,JB1,YA6, XA1 

writeC 12, fmt2) IP2,JA2,JB1 ,YA6,XA2 

writeC 12 ,fmt2) IP3 , JA3 , JB1 ,YA6,XA3 

writeC 12, fmt2) IP4,JA4,JB1,YA6, XA4 

writeC 12, fmt2) IP5 , JAB , JB1 ,YA6,XA5 

writeC 12 , f mt2) IP6,JA6,JB6,YA6, XA6 ,ZA6 

writeC 12, fmt2) I P7 , JA7 , JB6 , YA6 , XA7 , ZA6 

writeC 12 , fmt2) IPS , JA8 , JB6 , YA6 ,XA8 ,ZA6 

writeC 12 , f mt2) IP9,JA9 ,JB6,YA6, XA9 , ZA6 

writeC 1 2 , f mt3) IP1,IP2,IP3,IP4,IP5 

writeC 12 , fmt3 ) IP2,IP6 

writeC 12 , f mt3 ) IP6,IP7 

writeC 1 2 , fmt3 ) IPA,IP8 

wri teC 12 , f mt3 ) IP8,IP9 

Mil = 11 

M12 = 12 

M13 = 13 

YA7=0 . 

T1 1 = 0 . 

T12=0 . 

T13=0 . 

do 71 i=l i MLAYC 1 ) 
tl l=tl 1+tsC i , 1 ) 

71 continue 

do 72 i = l , MLAYC 2 ) 
tl2=tl2+ts( i , 2) 

72 continue 

do 73 i = l , MLAYC 3) 
tl3=tl3+tsC i ,3) 

73 continue 

writeC 12, fmt6) IP1 , IP5 ,T11 ,T1 1 , YA7 , YA7 ,M11 
writeC 12, fmt6b) IP2 , IP6 , T12 , T12 , YA6 , YA6 ,M12 
writeC 12, fmtz) IP8 , IP4 , Tl 2 , T12 , YA6 , YA6 ,M1 2 
write (12, f mt6 ) IP7,IP6,T13,T13 , YA6 , YA6 , Ml 3 
writeC 12, fmt6) IP8 , I P9 , T13 , T13 , YA6 , YA6 ,M13 
go to 190 
190 continue 

YA7=0 . 

YA8= 0 . 

c ... 

c . ditto 1st stiffener 
c ... 

do 192 L= 1 , N+l 
KB=L*2*NI+1 
XTT=0 . 

L1=L+1 
YB=BC LI ) 

192 writeC 12 , fmt7 ) KB, YB 
do 193 L=1 ,N+2 

KB=L*2*NI-2*NI+1 
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if ( MTYP . eq . 1 .or. MTYP .eg. 5) -then 


c 193 
193 


NP1 =6 
NP2 = 6 

write(12,fmt9) NP1 , NP2 ,KB,KB , L 
NP1 = 1 
NP2 = 5 

wri te( 12 , fmt9 ) NP1 , NP2 , KB , KB , L 
elseif (MTYP . eq . 2) then 
NP1 = 6 
NP2 = 8 

wr ite( 12 , f mt9 ) NP1 , NP2 , KB ,KB , L 
NP1 = 1 
NP2 = 2 

wri te( 12 , fmt9 ) NP1 , NP2 , KB ,KB , L 

NP1 = 4 

NP2=5 

write (12, f mt9 ) NP1 , NP2 , KB ,KB , L 
elseif (MTYP . eq . 3) then 
NP1 = 6 
NP2=7 
NP3 = 8 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 
write( 1 2 , f mt9 ) NP1 , NP3 , KB ,KB , L 
NP1 = 1 
NP2 = 5 

write( 12 , f mt9 ) NP1 , NP2 , KB ,KB , L 
elseif (MTYP .eq. 4 .or. 6) then 
NP1 = 6 
NP2 = 7 

wri te( 12 , f mt9 ) NP1 , NP2,KB ,KB, L 

NP1 = 1 

NP2=5 

write(12,fmt9) NP1 , NP2,KB ,KB , L 
elseif (MTYP .eq. 7) then 
NP1 = 7 
NP2=7 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 
NP1 = 1 
NP2 = 2 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 

NP1 = 4 

NP2=5 

write( 12 , fmt9 ) NP1 ,NP2,KB,KB,L 
elseif (MTYP .eq. 8) then 
NP1 = 6 
NP2=7 
NP3 = 8 
NP4 = 9 

wri te( 12 , f mt9 ) NP1 , NP2 , KB ,KB , L 
wri te( 1 2 , fmt9 ) NP3 , NP4 ,KB , KB , L 
NP1 = 1 
NP2=5 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 
endif 

write(12,fmt9) KB,KB,L 
continue 

write( 12 , 1 ( f 1 msave ,, ) f ) 
if ( NBUC .eq. 2 .or. NBUC .eq. 3) then 
write(12, *( 1 1 refine 002 2 ,f ) f ) 
endif 
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write! 12 ,'! "mesh ")' ) 
write(12,’(" eltsen 0 10 ")') 
if (MTYP . eq . 2 . or . MTYP . eq . 7 . or . MTYP . eq . 8) then 
write( 12 , ' ( ' ' eltsen 0 10 aname=part * ' ) ' ) 
endif 
L = 1 

write( 12 , fmtO ) L 

write! 12,fmtc) l,L 

write( 12 , ' ( * 'merge' ' ) ' ) 

if (M .le. 1) go to 199 

do 195 L=1,M 

if (L .le. 1) go to 195 

write(12, ’(' 'ditto MESH=2")’> 

da=A( L+l ) -A( 2 ) 

write! 12 , fmt8 ) da 

write! 12 , fmtO ) L 

write! 12,fmtc) t,L 

writeC 12 , ' ! ' 'merge ")') 

195 continue 
199 continue 

c ... 

c CONO SUBROUTINE 

c ... 

write!12, '( ' 'mset 10 insert type msh'')') 

write! 12, '(' 'mset 10 del name=base * ' ) ' ) 

write! 12, '<•' set syntax on'')') 

write! 12 , • ! ” " ) ' ) 

write!12,*("t CONODE subroutine")') 

write! 12, ' ! ' '•§######*#*###**»»*" ) ' ) 

write! 12, ' ! " sub CONO Slstl Slst2 81st3")') 

write!12,'!" set echo on'')') 

write! 12 , ' ! " let 8nnod=*ipp! 1 ) " ) ' ) 

write! 12 , ' ! ' ' let 8ifn=Xif 1! nlst . nv, 0 ,81st2) " ) ' ) 

write! 12 , ' ! ' ' let 81n=Zlfm!8ifn, 1) " ) ' ) 

write! 12, ' ! ' ' let 8nl=Xibcl! 81n, 1 ) " ) ' ) 

write! 12, ' ! ' ' let 8d=%rfm! 8ifn, 1 , 0 ,81n) " ) ’ ) 

write! 12 , ' ! ' ' let 8if n=Xif 1! nlst .nv , 0 ,81st3) " ) ' ) 

write! 12 , ’ ! " let 81n=Xlfm!8ifn,l) " ) ' ) 

write! 12 , * ! ' ' let 8n2=Xibcl ! 81n , 1 ) " ) ' ) 

write! 12 , ' ! " let 8d=Xrf m! 8if n , 1 , 0 , 81n ) " ) • ) 

write! 12 , ' ! " let 8ifn=Xif 1! nlst .nv, 0 ,81stl ) " ) ' ) 

write! 12, ' ! ' * let 81n=Xlf m! 8if n , 1 ) " ) * ) 

write!.12,’l" ;f2 format " " ! Ix,i5) " ) ' ) 

write! 12, ' ( " ;f3 format ""(""Print Nodal Coordinates" ", lx, • 
*" 'Node' ''')'')') 
write! 12 , * ( " write 6 ;f2 8nl")') 
write! 12, ' ! " write 6 ;f2 8n2")') 
write! 12, ' ! " write 6 ;f3")') 
write! 12, '!' ' do ;20 8n=l ,8nnod* ' ) ' ) 
write! 12 , ' ! ' ' if Xibcl ! 81n,8n) ; 20 , ; 20 , 1 " ) ’ ) 
write! 12 , ' ! " let 8nn=Xibcl!81n,8n) " ) ' ) 
write! 12, '( * ' write 6 ;f2 8nn")') 
write! 12, ' ! ' ' conode 8nn 8nl 8n2 1 l.e+9'*)') 
write! 12, ' ! ' ' ;20 continue")') 

write! 12 , ’ ! * ' let 8d=%rfm! 8ifn, 1 , 0 ,81n) " ) • ) 
write! 12, ' ( " return")') 
write! 12 , ' ( * ' end")') 

c ... 

c . boundary conditions definition 


c . . 
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• f ,6fl0.3) t ) xl ,x2 ,yl ,y2 ,zl ,z2 


xl= -0.001 
x2= 0.001 

y 1 = -999. 

y2= 999. 

zl= -999. 
z2= 999. 

write( 12 , 1 ( 1 1 nset 11 copy volu 
xl= -0.001+BY 
x2= 0.001+BY 

y 1 = -999. 

y2= 999. 

zl= -999. 
z2= 999. 

writeC 12 , 1 ( 1 *nset 12 copy volu ,, J 6fl0.3) f ) xl ,x2,yl ,y2 ,zl ,z2 
y 1 = -0.001 
y2= 0.001 

xl= -999. 
x2= 999. 

zl= -999. 
z2= 999. 

writeC 12 , 1 ( • *nset 13 copy volu ,l ,6fl0.3) 1 ) xl ,x2 ,yl ,y2 ,zl , z2 
yl = -0.001+AX 
y2= 0.001+AX 

xl= -999. 
x2= 999. 

zl= -999. 
z2= 999. 

write(12, •( * 'nset 14 copy volu ,, ,6fl0.3) f ) xl ,x2 ,yl ,y2 , zl , z2 

c . . . 

c... Boundary conditions on Ribs (Frames). 

NB1 = 1 
NB2=N+2 

if (LEND .ne. 1) NB1 = 2 
if (LEND .ne. 1) NB2=N+1 
do 210 IB=NB1 ,NB2 
if ( LRIB .eq. 3) then 
if ( LRBC .eq. 1) then 

write(12, '( * ’dof sup/dnf 3,aname=kp f • ,11)') IB 
write(12, ’( f ’dof sup/dnf 3,aname=kb* • ,11)* ) IB 
elseif (LRBC .eq. 2) then 

wri te( 12 , * ( 1 ' dof sup/dnf 53 ,aname=kp 1 1 , II ) 1 ) IB 
write( 12 , 1 ( ' 'dof sup/dnf 53,aname=kb' ■ ,11 ) • ) IB 
endxf 

elseif (LRIB .eq. 1) then 
if (LRBC .eq. 1) then 

wri te( 1 2 1 dof sup/dnf 3 ,aname~kp ' * , II ) ' ) IB 
elseif (LRBC .eq. 2) then 

write ( 12 ,'(" dof sup/dnf 53 ,aname=kp • * , II ) 1 ) IB 
endif 

elseif (LRIB .eq. 2) then 
if (LRBC .eq. 1) then 

write(12, , ( t, dof sup/dnf 3,aname=kb» f ,11) # ) IB 
elseif (LRBC .eq.2) then 

write( 12 ,'(' 'dof sup/dnf 53 , aname=kb f * , II ) 1 ) IB 
endif 
endif 

210 continue 
c... left front corner 
xl=-0 . 001+BY 
x2=0 . Q01+BY 
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yl=-0 . 001 
y2=0 .001 
zl=-999 . 999 
z2=999 . 999 

writeC 12 , 9 ( * 9 nlist 11 insert volu 1 9 , 6f 9 . 3 ) 9 )xl ,x2 ,y 1 ,y2 ,zl , z2 
c... right front corner 
xl=-0 . 001+BY 
x2=0 . 001+BY 
yl = -0 . 001+AX 
y2=0 . 0 01 + AX 
zl =-999 . 999 
z2=999 . 999 

writeC 12 , 1 C 1 1 nlist 12 insert volu 1 1 ,6f 9 . 3) 1 )xl ,x2,yl ,y2,zl ,z2 
c... left rear corner 
xl = -0 . 001 
x2=0.001 
yl=-0 . 001 
y2 = 0 . 001 
zl=~999 . 999 
z2=999 . 999 

writeC 12 , 9 ( f 9 nlist 13 insert volu 9 9 , 6f 9 . 3 ) 1 )xl ,x2 , y 1 ,y2 , zl > z2 
c... right rear corner 
xl=-0 . 001 
x2=0 . 001 
yl=-0. 001+AX 
y2=0. 001+AX 
zl =*999 . 999 
z2=999 . 999 

writeC 12 C 1 1 nlist 14 insert volu 1 9 ,6f9 . 3) * )xl ,x2,yl ,y2,zl ,z2 

writeC 12 , 1 ( ' 1 nset 11 del nlist 11 12 13 14") f ) 

wri te( 12 , ' C 1 1 nset 12 del nlist 11 12 13 14 ,f )*) 

write(12, ■ ( • 1 nset 13 del nlist 11 12 13 lA ,, ) f ) 

writeC 12 ,'C 1 9 nset 14 del nlist 11 12 13 lA'*)*) 

writeC 12 , ' C 1 1 nlist 21 insert nset 11 ■')■) 

writeC 12 >'(• 9 nlist 22 insert nset 12 ,, ) t ) 

writeC 12 , 9 C 1 1 nlist 23 insert nset 13 f, ) f ) 

writeC 12 , ' C * 1 nlist 24 insert nset 14 ,, ) f ) 

NSET1=1 1 
NSET2=12 
NSET3=13 
NSET4=14 

c . . . 

writeCJ.2 , 9 C • * call cono 22 11 12 1 *)•) 
writeC 12 , 1 C • • call cono 21 13 14 f, ) f ) 
writeC 12 , 1 C 1 1 nset 11 insert nlist 13 14 ,f ) f ) 
writeC 12, 9 C 1 • nset 12 insert nlist 11 12 ,, ) , ) 
writeC 12 , 9 C 1 9 nset 13 insert nlist 11 IS**) 1 ) 
writeC 12 , 9 C 1 f nset 14 insert nlist 12 14 ,, ) f ) 

c . . . 

c... BOUNDARY CONDITIONS SETUP 
c . . . 

c. . . LARG = 1 yes. LARG not = 1 , NO 
c one - part of the larger panel 


c part of a larger panel 


if CLSBC.eq.l) then 

writeC 12, • C * • dofsup/dnf 4 nset 13 1 ' ) ' ) 
writeC 12,’ C" dofsup/dnf 4 nset 14 t, ) , ) 
elseif CLSBC.eq.3) then 
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c 

c 

c 


sides simply supported 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c . . 
c 

c . . 
999 


writeC 12 , 1 ( f 1 dofsup/dnf 34 nset 13 ,f ) f ) 
wr ite( 12 , 1 ( • f dofsup/dnf 34 nset 14 ,f ) r ) 
elseif (LSBC.eq.4) then 


sides clamped (axial and lateral free) 


writeC 12 , ' ( 1 * dofsup/dnf 2456 nset 13 ' 1 ) 1 ) 
writeC 12 , 1 ( • • dofsup/dnf 2456 nset 14 ff ) f ) 
elseif (LSBC.eq.5) then 


sides clamped (axial only free) 


writeC 12,* ( ,f dofsup/dnf 23456 nset 13 ,f ) f ) 
writeC 12 , • ( * f dofsup/dnf 23456 nset 14 f, ) f ) 
elseif (LSBC.eq.6) then 


sides fully clamped 


writeC 12 , 1 ( 1 ' dofsup 0 nset 13 * • ) * ) 
writeC 12 , 1 ( * * dofsup 0 nset 14 ,f ) , ) 
endif 

if (LEBC.eq.l) then 


part of a larger panel 


writeC 12 , 1 ( 1 * dofsup/dnf 5 nset 11 ,, )») 
writeC 12 , 1 ( ' ' dofsup/dnf 5 nset 12 ,, ) f ) 
elseif (LEBC.eq.3) then 


ends simply supported 


writeC 12, •( 1 1 dofsup/dnf 35 nset ll ,, ) f ) 
writeC 12, ’C” dofsup/dnf 35 nset 12 f, ) f ) 
elseif (LEBC.eq.4) then 


ends clamped (axial and lateral free) 


writeC 12, 1 (• * dofsup/dnf 2456 nset ll 11 )*) 
writeC 12 ,'(' ' dofsup/dnf 2456 nset 12 l, ) i ) 
elseif (LEBC.eq.5) then 


ends clamped (axial only free) 


writeC 12 , 1 C 1 f dofsup/dnf 32456 nset 11 ,, ) , > 
writeC 12 , 1 ( * 1 dofsup/dnf 32456 nset ll lf ) f ) 
elseif (LEBC.eq.6) then 


ends fully clamped 


writeC 12 , 1 ( 9 • dofsup 0 nset ll 1 *)*) 
writeC 12 , 1 ( f 1 dofsup 0 nset 12 f, ) , ) 
endif 


Corner node constraints to 


stablize the panel. 


writeC 12, 1 ( 1 1 dofsup/dnf 123 nlist 11 ,# )«) 
writeC 12, *( 1 1 dofsup/dnf 13 nlist 1 2 f 1 > • ) 
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writeC 12 , ' ( * f dofsup 3 nlist IS**)*) 
writeC 12 , 1 ( f f f inish : stop**) 1 ) 

c . . . 

close ( uni t= 12 ) 

return 

end 

c NTOKEN -- utility I/O subroutine 
c written by Dan Rickhoff LMSC 81-12; 
c with modification by L. L. Chou LMSC 81-12. 

subroutine nreal (ntk , ra ) 
parameter ( maxtkn = 25 ) 
character a*127, tkns(maxtkn)*10 
dimension lentk ( maxtkn ) ,ra(maxtkn) 
c 

100 ierr=0 

call getlinC 5, a, irdata, *910 ) 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 

C ----- 

do 200 i=l , ntk 
r = ra(i) 

call rintrpC tkns(i), lentk(i), r, *991 ) 
ra(i) = r 
go to 200 

991 ierr=ierr+l 

writeC 6 , * ( 19x, "Not a real »•)•> 

200 continue 

if (ierr .ge. 1) go to 100 
return 

999 continue 

write(6, , ( ,, ERROR return from getkns") 1 ) 

910 continue 

write^/’C* 1 End-of-File return from "gatlin"* * ) 1 ) 
return 
end 
c 
c 

subroutine nintgCntk , ia) 
parameter ( maxtkn = 25 ) 
character a*127, tknsC maxtkn)*l 0 
dimension lentk (maxtkn) ,ia(maxtkn) 


100 ierr=0 

call getlinC 5, a, irdata, *910 ) 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 

do 200 i=l ,ntk 
intgr = iaCi) 

call iintrpC tkns(i), lentk(i), intgr, *992 ) 
ia(i) = intgr 
go to 200 

992 ierr=ierr+l 

write(6, , ( 19x, "Not an integer f, ) f ) 

200 continue 

if C ierr .ge. 1) go to 100 
return 


999 continue 

write^j’C" ERROR return from getkns" )•) 
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910 continue 

write^^'C 1 * End-of-File return from ,f getl in M 1 1 ) 1 ) 
return 
end 
c 
c 

subroutine sti t leCsline ) 
c 

character a*127, tkns(l)*60, sline*(*) 
dimension lentkCl) 
c 

call getlinC 5, a, irdata, *910 ) 
ntk = 1 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 
sline= tkns( 1 ) ( 1 : lentkC 1 ) ) 
return 
c 

999 continue 

write(6, , ( ,f ERROR return from getkns ff ) f ) 

910 continue 

write^^'C 11 End-of-File return from "getlin" • • ) * ) 
return 
end 
c 

c xxxxxxxxxx*xxxxxxxxxxxxxxx*x*xxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

subroutine rintrpC tkn, lentk, r, * ) 
c 

c# Read a real number, R, from a character string, TKN, of length LENTK. 
c# (Note that blanks in the strings are ignored. Leading and/or trailing 
c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
c# which is not OK; try to fix this sometime.) 
c 

character tkn*(*) 
c 

if ( lentk .eq. 0 ) return 
c 

read( tkn( 1 : lentk ) , f (bn , f 80 . 0 ) f , err=990 ) r 
c 

return 

c 

c 

990 continue 
return 1 
c 

end 

c 

c *xxxxxxxxxx**x*x*x*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

c 

subroutine iintrp( tkn, lentk, i, * ) 
c 

c# Read a integer number, I, from a character string, TKN, of length LENTK. 
c# (Note that blanks in the strings are ignored. Leading and/or trailing 
c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
c# which is not OK; try to fix this sometime.) 
c 

character tkn*(*) 
c 


c 


if ( lentk .eq. 0 ) return 
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read( tkn( 1 : lentk ) , '(bn^O) 1 , err=990 ) i 

c 

return 

c 

c 

990 continue 
return 1 
c 

end 


c 

c 

c 

c 

c 

c# 

c 

c# 

c# 

c# 

c 

c# 

c« 

c 

c# 

c# 

c# 

c# 

c 

c# 

c# 

c 

c* 

c 

c# 

c* 

c# 

c# 

c# 

c# 

c# 

c 

c - 

c# 

c 

c# 

c* 

c 

c# 

c# 

c 

c# 

c# 

c# 

c# 

c# 

c 

c* 

c# 

c# 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
subroutine getknsC a, irdata, tkns, lentk, ntk, * ) 


ARGUMENTS: 


a The given character string containing the input line. 

If this string is blank (input IRDATA = 0) then all 
NTK returned tokens will be blank with zero length. 

in irdata . . The input line in string A extends to this character 

position . 


out tkns .... The character array of tokens. The character lengths 
of these array elements limit the lengths of input 
tokens; tokens are correctly parsed but then truncated 
to this length. 

out lentk ... An integer array with the string lengths of the tokens 
(after any necessary truncation) . 

in ntk ..... The number of tokens to be parsed from the line. 

* Alternate RETURN in the event that a string token 

initiated by an apostrophy had no trailing apostrophy, or 
the next character after the trailing apostrophy was not 
a delimiter (or end-of - line) . 

NOTE: The arguments that had been interpreted up to the 
point that the error occured are returned; the 
will be blank. 


PURPOSE: 

Parses an "input line" contained in a given string to find the first NTK 
tokens on the line. 

Tokens are delimited by beginning-of - line , commas, spaces, tabs, or 
end-of-line. Tabs are equivalent to (single) spaces. 

A single asterisk (X) input token is recognized as a "null" token, for 
which the retuned string is blank and returned length is zero. Some users 
may find entry of the null token preferable to that of a comma with no 
preceeding token, or two adjacent apostrophies (see the next 
paragraph) . 

If a token is enclosed within apostrophies then it may contain commas, 
spaces, or tabs. The returned length of such a token is the number 
number of character positions between the pair of apostrophies . 
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c# Note that , for this length calculation, tabs are a single character, 
c# Contigous alphanumeric strings (no embedded delimiters) do not need to be 
c# enclosed within apostrophies . 
c 

c# There is no provision for including apostrophies ( f ) or the comment 
c# character (the hash symbol, #; see routine GETLIN) within a token, 
c# i.e., they may not be "escaped”. Strings enclosed within apostrophies 
c# may contain asterisks; these will not be misinterpreted as 
c# null tokens, 
c 

c# A line with only "null” data will minimally contain (before an optional 
c# comment) either a null character, a comma or two adjacent apostrophies. 
c 

c# Tokens are placed, left justified, into the character array TKNS. 

c# The tokens may be truncated in order to fit into the given TKNS array. 

c 

c# The lengths of the returned tokens are placed in the LENTK array . 
c 

c 

c 

c 

c 

c# Arrays for the returned tokens and their correcponding 

c# character lengths. 

c 

c 

character tkns(#)*(*) 
dimension lentk(*) 
c 

c 

c# Strings for the input line, the "curent” character on the 

c# line and delimiter characters (space, tab, and comma). 

c 

c 

character a*(K), c*l , tab*l , space*l, comma*l , apos*l, null*l 

c 

save space , comma , apos , null 

data space /* V, comma /•,*/, apos / ,,f */, null /•**/ 

c 

tab - char(9) 
c 

maxlen = len( tkns(l) .) 
c 

c 

c# Initialize ntk tokens to blanks. 

c 

c 

do 50 i=l,ntk 
tkns(i) = f 1 
lentk(i) = 0 
50 continue 
c 

if ( irdata .eq. 0 ) return 
c 

c 

c# Something is on the line (before any comment), 

ci Parse the tokens (up to NTKN of them). 

c 


c 


is = 0 
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itkn = 1 


c 

200 continue 

c # Move along the line looking for a token or a comma (null token), 

is = is + 1 
c = a C i s : i s ) 
c 

c 

if ( c.eq.tab .or. c.eq. space ) then 
c # Move to next character; to continue looking for token, 

go to 200 

c 

else if ( c.eq. comma ) then 

c # No token found before this comma indicates null token, 

if ( itkn . eq . ntkn ) return 
itkn = itkn + 1 
c 

if C is .eq. irdata ) return 

c # Move to next character; look for next token, 

go to 200 

c 

else 

300 continue 

c # We are at the left-most character of a non-null token. 

il = is 
c 

c - - - - - 

if C c .eq. apos ) then 

c # We look for the trailing apostrophy for this "quoted string", 

if ( is .eq. irdata ) return 1 
450 continue 

is = is + 1 
c * a(is:is) 
if ( c .eq. apos ) then 
length = is - il - 1 
if C length .gt. maxlen ) then 
length = maxlen 
endif 

lentkC itkn ) * length 

if ( length .gt. 0 ) tkns( itkn ) = aC il+1: il+length ) 
if ( is . eq . irdata ) return 
is = is + 1 
.c = a(is:is) 

if ( .not. (c.eq. space .or. c.eq.tab .or. c.eq. comma) ) 

* return 1 

else 

if ( is . eq . irdata ) return 1 
go to 450 
endif 


else 

400 continue 

if ( is .eq. irdata ) then 

i The token extends to the end of the input data, 
if ( a( i 1 : is) .eq. null ) return 
tkns( itkn ) = aCil: is) 

# The input token length may exceed the length of the variable, 
length = is - il + 1 
if ( length ,le. maxlen ) then 
lentkC itkn ) = length 
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maxlen 


else 

lentkC itkn ) = 
endif 
return 
endif 
c 

c # Move along the line looking for the end of the token, 

is = is + 1 
c = aC is : is) 
c 

if ( .not. (c.eq. space .or. c.eq.tab .or. c . eq . comma) ) then 
if ( c .eq. apos ) return 1 

c # Move to next character; continue looking for end of token, 

go to 400 
endif 
c 

c # The previous character was the right-most character of the token 

if ( a ( i 1 : is-1) ,ne. null ) then 
tkns( itkn ) = a(il: is-1) 

c # The input token length may exceed the length of the variable, 

length = is - il 
if ( length .le. maxlen ) then 
lentkC itkn ) = length 
else 

lentkC itkn ) = maxlen 
endif 
endif 

c - - - - - 

endif 
c 

if C itkn .eq. ntkn ) return 

c # Find the next location at which we should begin looking for the 

c # next token, i.e., after a following comma or at the next token, 

itkn = itkn + 1 
if C is .eq. irdata ) return 
if ( c .eq. comma ) then 

c # Go back and look for a token following this comma, 

go to 200 
else 

c # Curent character was a space or a tab. 

c # Look for a comma, the next token, or end of line. 

500 continue 

is * is + 1 
c = a(is:is) 

if ( c .eq. comma ) then 

if C is . eq . irdata ) return 
go to 200 

else if ( c.eq. space .or. c.eq.tab ) then 
if ( is . eq . irdata ) return 
go to 500 
else 

go to 300 
endif 
endif 

c 

endif 

c 

end 

c 

c **************************************************************** 
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c 

subroutine getlinC nunit, a, irdata, * ) 
c 

c 

c# ARGUMENTS: 
c 

c# in nunit . . . 

c# 

c 

c# out a 

c# 
c# 
c« 

c 

c# out irdata . . 

c# 
c# 

c 

c# - * 

c# 

c 

c 

c# PURPOSE: 
c 

c# Reads lineCs) from unit NUNIT and determines the location, IRDATA, in the 
c# string beyond which there may be only spaces, tabs, or a comment. Comments 
c# begin with a hash symbol (#). Blank lines and lines that contain only a 
c# comment line are ignored and the next line is read until a line with some 
c# data or End-of-File is encountered. ("Some data" might minimally be a 
c# single comma, an asterisk, or two adjacent apostrophies . ) 
c 

c - 

c 

character a*(*), comnt*! 
save comnt 
data comnt /'#’/ 
c 

c 

c# Read the input "line" from disk. 

c 

c 

100 continue 

readC nunit, 1 (a) r , end=910 ) a 
c 

c# We waht to ignore any trailing comment and lines 

c# that are blank except for a comment (if any), 

c 

icom ® index( a, comnt ) 
c 

c # Location of right-most non-blank before comment (if any), 
if ( icom .gt. 1 ) then 

irdata = iright( aCl: icom-1) ) 
else if ( icom .eq. 1 ) then 
go to 100 
else 

irdata = iright( a ) 
endif 
c 

# If only blanks before comment (if present) then read next line, 
if (irdata . eq . 0) go to 100 


The Fortran logical unit number of the file from which 
the input line(s) should be read. 

A character string into which the input line will be 
read. The length of this given string determines how 
long the data line may be; input past this length is 
ignored . 

The input "data" in string A extends to this character 
position. The data portion does not include any 
trailing comment (if present). 

Alternare RETURN in the event that End-of-File is 
encountered on attempt to read a line from unit NUNIT. 


c 
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c 

return 

c 

c RETURN on End-of -Fi ^ 

910 continue 
return 1 
c 

end 

c 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
c 

function ileft( string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 

c 

c Find the position of the leftmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 

c 

c 

c 

characterXC X) string 
character*! tab 
c 

tab = char(9) 
c 

c 

c Find the location of the first nonblank character . 
c 

Is = len( string ) 
c 

do 100 i=l,ls 

if( string(i:i) .ne. f 1 

* .and. string(i:i) .ne. tab ) then 

ileft = i 
return 
endif 

100 continue 
c 

c 

c String was blank. Set ileft to zero (as a flag). 

ileft = 0 
c 

return 

end 

c 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
c 

function irightC string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 

c 

c Find the position of the rightmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char (9), are considered equivalent to only one blank. 

c 


c 

c 
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character^ X) string 
character*! tab 


tab = char(?) 
c 

c 

c Find the location of the last nonblank character, 
c 

Is = lent string ) 
c 

do 100 i= Is, 1,-1 

if( string(i:i) .ne. * * 

* .and. string(i:i) .ne. tab ) then 

iright = i 
return 
endif 

100 continue 
c 

c 

c String was blank. Set iright to zero (as a flag). 

iright = 0 
c 

return 

end 

C End of SP9 1 0 . FOR 
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A3. 3. 2 CURVED STIFFENED PANEL MODULE # 2 PROGRAM 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM GBINP 

common /mesh/ M, N , MI , NI , AX , BY , R , A( 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT , El (3 , 10 , 5) , VI ( 3 , 10 , 5) , G1 ( 3 , 1 0 , 5 ) , A1 ( 3 , 10 , 5) , 

1 SS(12,10,5),NT(10),NAME 

. . 1T1 ( 10,5) ,$XT( 10,5), SXC( 10,5) ,SYT( 10,5), SYC( 10,5), SS( 10,5) ,NT( 10) 
common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY( <s ) ,MS ( 30 , A ) ,TS(30,4),PS(30,4) 
common /load/ LARG , LEND , LRIB , LRBC , LEBC , LSBC , LTOT , FL ( A ) , 

1 LBC11,LBC12,LBC13,LBC14 

common /solve/ NBUC , TAR , NDF , ND , MO 

* Advanced Compostie Structural Program Input * 

PROBLEM 1A: Laminated flat panel w/ SECAUT Beam * 

x 

variables definition . . . 


x 

x 

x 

x 

X 

X 

X 

X 

X 

X 


[ Geometry data ] 

M = numbers of axial stiffeners 
N = numbers of lateral ribs 

MI= numbers of sub-grid between stiffeners 
NI= numbers of sub-grid between ribs 
A = axial stiffener distances (M+2) 


X 

x 

X 

X 

X 

X 

X 

X 


c 

X 

B = lateral rib distances 

CN+2) 

X 

c 

X 



X 

c 

X 

MSET 1: STF1 


X 

c 

X 

MSET 2: STF2 


X 

c 

X 

MSET n: STFn 


X 

c 

X 

MSET 10: BASE 


X 

c 

X 



X 

c 

X 

yalO: read tapelO 


X 

c 

X 

yall: read tapell 


X 

c 

X 

nalO: input data for the 

new tapelO 

X 

c 

X 

nail: input data for the 

new tapell 

X 

c 

X 

flisO: list tapelO 


X 

c 

X 

f lisl : list tapell 


X 

c 

X 

f mody : modify input data 


X 

c 

X 

fsave; update tapelO, tapell 

X 

c 

X 

fquit: quit and end 


X 

c 

X 



X 

c 

X 

PROGRAMMED by Lloyd Chou 

81-12 MSD 

X 

c 

X 

DATED December 5, 1990 

ext. 6-3075 

X 

c 

X 

UPDATED by Tony Wei 

81-12 MSD 

X 

c 

X 

6/28/91 

ext. 6-1137 

X 

c 

X 



X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
LOGICAL herelO ^erell ,herel2 
CHARACTER NAME*80 
dimension NAME ( 10) 


c . checking input data for DIAL F.E. structural analysis 
c ... 

c . initialize geometryC tapelO ) and materiaK tapell ) files 

c ... 

inquireC f ile= ' tapel 0 1 , exist=herel 0 ) 
inquireC file= 1 tapell 1 , exist-herel 1 ) 
if (herelO) then 
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call yalO 
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else 


call nalO 
endif 

if (herell) then 
call yall 

else 

call nail 
endif 


call flist 


closeC unit = 10) 
close( uni t = l 1 ) 


open ( uni t=l 0 , status= • unknown • , f ile= • tapelO • ) 
open( uni t = l 1 , status- 1 unknown 1 , f ile= 1 tapell • ) 
call fsave 


c *## 

c # end of main program 

c ### 

STOP 

end 

SUBROUTINE NEWPAGE 
do 1 1=1, 24 

1 write( 6 , • ( 1 • »•)•) 
wri te( 6 ,2) 

2 f ormat ( /3x , • XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX , ^ 

^ /3x,'X Advanced Composite Structural Program by LMSC *' , 

2 /3x,'» Flat Stiffener Panel : Revision 1.2 , 6/28/91 x', 

3 /3x , ' XXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXXXXXXXX • ) 
return 

end 

SUBROUTINE QUIT 
write<6 , 1 ) 

1 format ( //5x , • xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx • , 

1 /5x,*x No Modification, Exiting Module! x’, 

2 /5x , • xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx • ) 

STOP 

end 

SUBROUTINE yalO 

common /mesh/ M, N ,MI , NI , AX, BY,R, A( 10) ,B( 10) ,NGRID 

common /matl/ NMAT , El ( 3 , 10 , 5) , Vl< 3, 10,5) ,61(3, 10,5) , A1 (3 , 10 , 5) , 

1 SS(12,10,5),NT(10) , NAME 

common /wall/ NLAY,MW(30> ,TW(30) ,PW(30) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY(4) ,MSC30,4) ,TS<30,4) ,PSC 30,4) 
common /load/ LARG,LEND,LRIB,LRBC,LEBC,LSBC,LT0T,FL(4) , 

1 LBC11,LBC12,LBC13,LBC14 

common /solve/ NBUC , T AR , NDF , ND , M0 

c ... 

c . read tapelO 

c ... 

character NAMEK60 
dimension NAMEC10) 

open( unit=10 , status= 1 old f ,f ile= 1 tapelO 1 ) 

11 f ormat ( 4I5,3F10 . 0) 

12 f ormat(8F10 . 0) 

13 format(8I5) 
c 13 format(6I5) 

14 formate AF12.0) 
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15 f ormatC 4i3,f 10 . 5) 

readC 10,11) M , N , MI , NI , AX , BY , R 
M2 = M+2 
N2 = N*2 

readC 10,12) ( AC I ) , 1 = 1 ,M2) 
read( 10,12) (BCI), 1=1 ,N2) 

c ... 

readC 10, 13) LEND , LRI B , LRBC , LBC1 1 , LBC12 , LBC13 , LBC14, LTOT 
c readC 10,13) LEND , LRI B , L EBC , L SBC , LTOT 

readC 10,14) CFLC I ) , 1 = 1 ,4) 
readC 10,15) NBUC , NDF , ND , MO , TAR 
return 
end 

c ... 
c ... 

SUBROUTINE yall 

common /mesh/ M, N , MI , NI , AX , BY , R , AC 1 0 ) , BC 10 ) , NGRID 

common /matl/ NMAT , El C 3 , 1 0 , 5) , VI C 3 , 10 , 5) , G1 C 3, 10 , 5) , A1 (3 , 10 , 5 ) , 

1 SSC 12 , 10 , 5 ) , NT CIO), NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) ,MSC 30 , 4 ) , TSC 30 , A) ,PSC30,4) 
common /solve/ NBUC , TAR , NDF , ND ,MO 

c ... 

c . read tape 11 
c ... 

character NAME*80 
dimension NAMEC10) 

openCunit=ll , status= 'old 1 , f ile= 'tape 11 1 ) 

11 formatC 915 ) 

12 f ormatC 6F12 . 0 ) 

13 formatC I5,2F10.Q) 
readC 11, 11) NMAT 
do 110 1=1, NMAT 

J = 1 

readC 11, 12) C El CK , I , J ) , K= 1 , 3 ) , C VI CK , I , J) , K=1 , 3) 
readC 11,12)' CGI CK , I , J ) ,K= 1 , 3 ) , C A1 CK , I , J ) , K=1 , 3) 
readC 11 ,12) CSSCK , I , J) ,K=1 ,6 ) 

110 readC 11 ,12) CSSCK , I , J) ,K=7 ,12) 

c ... 

readC 11,11) NLAY 
do 120 1=1, NLAY 

120 readC 11 ,13) MWC I ) , TWC I ) , PWC I ) 
readC 11,11) MTYP 
readC 11,12) XH,XB,XC,XT 
if CMTYP.eq.l .or .MTYP.eq.5) then 
IP = 2 

elseif CMTYP.eq.2) then 
IP= A 
else 
IP = 3 
endif 

do 130 1 = 1, IP 
readC 11, 11) MLAYC I) 
do 130 J= 1 , MLAYC I ) 

130 read( 11 ,13) HS( J,I) ,TS( J,I) ,PS( J.I) 
return 
end 


c . 


SUBROUTINE nalO 
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common /mesh/ M,N,MI,NI,AX,BY,R,A(10),B(10) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI ( 3 , 1 0 , 5 ) , G1 ( 3 , 1 0 , 5) , A1 ( 3 , 1 0 , 5) , 

1 SS (12, 10,5), NT (10), NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY( 4 ) , MS( 30 , A ) ,TS( 30 ,4) , PS(30, 4) 
common /load/ L ARG , LEND , LRI B , LRBC , LEBC , LSBC , LTOT , FL ( A ) , 

1 LBC11,LBC12,LBC13,LBC14 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ra(10),ia(10) ,NAME(10) 
character ans*l , NAME*80 

c ... 

c . create input for tapelO 
c ... 
c ... 

11 format(2x, * Input Panel Width, Length and Radius >>( ' ,3F8 . 3 , * )> ' $) 

12 f ormat( 2x ,* Input No. of Stiffeners and Ribs >> ( * , 213 , f ) > 1 $ ) 

13 format(2x ,' Input No. of Sub-Grid between Stif/Rib >>(', 212 ,')>'$ ) 

14 f ormat ( 2x , ' Input ' , 1 2 , ' Axial Stiffener locations >>'$) 

15 f ormat ( 2x ,' Input ', 12 , * Lateral Rib locations >>'$) 

20 format(2x,' Boundary Condition Definition ') 

21 format ( 2x , 1 Should it represent a part of a much large', 
l f panel?( Y/N)»(N)> '$) 

22 f ormat ( 2x , 'Are there ribs at Ends ?( Y/N)>>( Y)> * $ ) 

23 format(2x, 'Ribs on:(l)Skin (2)STIF (3)Both ?>>(1)>*$) 

24 f ormat ( 2x Choose a B.C. Type no. at Ribs:' 

1/1 Ox , ' ( 1 ) Simply Supported; (2) S.S. and Rotation; ', 

2 ' ?>>(!)>•$) 

25 f ormat ( 2x ,' Choose a B.C. type no. at z = 0:', 

*/10x,'(l) Simply Supported', 

*/10x,'(2) S.S. and Rotation', 

1/1 Ox , ' ( 3) Free ---»(!)>'$) 

26 f ormat ( 2x Choose a B.C. type no. at z = L:', 

*/10x,'(l) Simply Supported', 

*/10x,'(2) S.S. and Rotation*, 

1/1 Ox , ' ( 3 ) Free »(!)>'$) 

27 f ormat ( 2x ,' Choose a B.C. type no. at theta = 0: f , 

*/10x,'(l) Simply Supported', 

*/10x,'(2) S.S. and Rotation', 

1/1 Ox , ' ( 3 ) Free --->X1)>'$) 

28 f ormat ( 2x, 'Choose a B.C. type no. at theta = theta_max: f , 
*/10x,'(l) Simply Supported', 

*/10x,'(2) S.S. and Rotation', 

1/1 Ox , ' ( 3) Free ---»(!)>•$) 

30 f ormat ( 2x , * Loading Condition Definition •) 

31 format(2x, 'Choose input loads type (Total=l ,Line=2) ' , 
c '?»(2)>'$) 

32 f ormat( 5x, 'following total load unit : lb') 

33 format( 5x , 'following line load unit: lb/in') 

34 format(7x, ' Input axial load >>(' ,F10 . 1 ,')>'$ ) 

35 f ormat ( 7x ,' Input lateral load >>(', FI 0 . 1 ,')>•$ ) 

36 format(7x, ' Input shear load along ends >>( * ,F10 . 1 , * )> '$) 

37 format( 7x, ' Input lateral pressure in psi >> ' ,F10 . 2, ' )> '$) 

38 format(2x,' Type of Analysis *) 

c *2x,' Post-Buckling Analysis Should Be Used Only 

c ... 

call NEWPAGE 
ra( 1 )-10 . 
ra( 2 ) =1 0 . 
ra( 3)=122 . 

write(6,ll) ra( 1 ) , ra( 2) , ra( 3) 
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call NREAL(3,ra) 

AX=ra(l) 

BY=ra( 2 ) 

R = ra( 3 ) 
ia( 1 >=2 
ia( 2) =1 

write (6,12) ia(l),ia(2) 
call NINTGC 2 , ia) 

M=ia ( 1 ) 

N = ia( 2 ) 
ia( 1 ) =2 
ia( 2 ) =2 

writeC 6 ,'( 2x Does the user want to specify Panel Sub-divisions? 
X( Y/N) ’ ’ ) 1 ) 
writeC 6 , 1 ( 2x , ’ 1 Enter 
call STITLE(ans) 

if Cans .eq. ’N' .or. ans .eq. 'n') then 
wri te( 6 , *) * 1 

wri te ( 6 , ’ ( 2x , ’ ' Sub-Grid Between Stiffeners are 2.’’)’) 
wri te( 6 , * ( 2x , ’* Sub-Grid Between Ribs are 3. ,, ) , ) 

MI = 2 
NI = 3 

elseif (ans .eq. ’Y’ .or. ans .eq. f y’) then 
wri teC 6 ,13) ia(l),ia(2) 
call NINTGC 2 , ia ) 

MI=ia( 1 ) 

NI=ia( 2 ) 
end if 
BC 1 )=0 . 

DB = BY/CN+l) 
do 2 1=1, N+l 
2 BCI+l) = DB * I 

DA = AX/M 
AC 1 ) = -DA/2, 
do 1 I = 1 , M 
1 ACI+l) = AC I ) + DA 
AC 1 ) = 0. 

ACM+2) = AX 

writeC 6 , 1 C 5x , ’ 1 Stiffeners equally spaced (Y/N)? >>(Y)> ,f $)') 

ans= 1 Y 1 

call STITLE(ans) 

if Cans .eq. 'Y' .or. ans .eq. •y 1 ) go to A 
writeC 6 , 1A) M 
call NREALCM, ra) 
do 3 1=1, M 

3 ACI+l) = ra(I) 

A ACM+2) = AX 

writeC 6 , 1 ( 5x , 1 ’Ribs equally spaced (Y/N)? »(Y)> ,, $)*) 
ans= ’ Y ’ 

call STITLECans) 

if Cans .eq. ’Y’ .or. ans .eq, ’y’) go to 6 
writeC 6 , 15 ) N 
call NREALCN, ra) 
do 5 1=1, N 

5 BCI+1) = ra(I) 

6 BCN+2) = BY 


c . . 


writeC 6 , 20 ) 
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50 writeC6,22) 
ans=’Y f 
LEND=1 

call STITLE(ans) 

if Cans .eq. ’Y* .or. ans .eq. 'y') go to 55 
LEND=2 

55 wri te( 6 , 23 ) 
ia( 1 ) =1 

call NINTGC 1 , ia) 

LRIB=iaC 1 ) 
wri teC 6,24) 
ia( 1 ) =1 

call NINTGC 1 , ia) 

LRBOiaCl) 
writeC 6 ,25) 
ia( 1 ) = 1 

call NINTGC 1 , ia) 

LBC1 l=iaC 1 ) 
wri teC 6 , 26 ) 
iaC 1 )=1 

call NINTGC 1 , ia) 

LBC12=iaC 1 ) 
writeC 6 , 27 ) 
iaC 1 ) =1 

call NINTGC 1 , ia) 

LBC1 3=iaC 1 ) 
writeC 6 , 28) 
iaC 1 )=1 

call NINTGC 1 , ia) 

LBC14=iaC 1 ) 

writeC * , *) lbcl 1 , lbcl2 , lbcl3 , lbclA 

c ... 

writeC 6 , 30 ) 
writeC6 ,31 ) 
iaC 1 )=2 

call NINTGC 1 , ia) 

LT0T=iaC 1 ) 

if CLTOT .eq. 1) writeC6,32> 
if CLTOT .ne. 1) write<6,33) 
raCl )=1000 . 
writeC6,34) raCl) 
call NREAL C 1 , ra) 

FL < 1 ) = raC 1 ) 
raC 1 )-0 . 

writeC6 ,35) raCl) 
call NREALC 1 , ra) 

FL C 2 ) =raC 1 ) 
raC 1 ) =0 . 

writeC 6,36) raCl) 
call NREALC 1 ,ra) 

FL C 3 ) =raC 1 ) 
raC 1 )=0 . 

writeC6,37) raCl) 
call NREALC1 ,ra) 

FL C A ) = raC 1 ) 

c Solve Strategy 

writeC6 ,38) 

writeC6, , C ft Choose ONE of the following type of analysis>> v 1 ) v ) 
writeC6, , C 99 1> Linear Analysis . 9 9 )* ) 

writeC 6,'C 9 9 2> Bifurcation Buckling Analysis. 19 ) 1 ) A-88 



writeC6,*C** 3> Post- Buckling Analysis . * * )’ ) 

writeC6,*C** Enter >>’*$)*) 

call NINTG( 1 , NBUC) 

NDF=0 < 

ND=0 
TAR=Q . 

M0=10 

if CNBUC.eq.3) then 

c Caution message about the Post Buckling Technique 

c writeC6,39) 

write C 6 , ' C * * Type of Target Point ?»*•)*) 
writeC 6 , * C 1 * 0> Load Factor . 1 1 ) 1 ) 

writeC 6 , * C * * l-6> Displacement DOF.’’)*) 

writeC 6 , 1 ( f 1 Enter» 1 1 $ ) » ) 

call NINTGC 1 , NDF) 
if CNDF.gt.O) then 

writeC6,*C’* Enter Node Number >>*’$)*) 
call NINTGC 1 , ND) 
endif 

writeC 6 , * C * * Target Point Value =*’$)*) 
call NREALC 1 ,TAR) 
elseif CNBUC .eq. 2) then 

writeC6 / , C 11 How many MODE shapeCs) do you want CMax. 50)? >> f 
#’$)*) 

call NINTGC 1 , MO ) 
writeC 6 , *) ' ' 
endif 
return 
end 

c ... 
c ... 

SUBROUTINE nail 

common /mesh/ M,N,MI,NI,AX,BY,R,AC10),BC10) , NGRID 

common /matl/ NMAT,E1C3,10 ,5),V1(3,10,5),G1(3,10,5),A1(3,10,5), 

1 SSC12, 10,5), NTC10), NAME 

common /wall/ NLAY, MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT ,MLAYC 4) ,MSC30,4),TSC30,4),PSC30,4) 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension raC 1 0 ) , iaC 1 0 ) , NAMEC 10 ) 
character ans*l , NAME*80 

c . . . 

c . create input for tapell 
c ... 

11 f ormatC 2x , * Input No. of Materials >>C * , 12, * )> *$) 

13 formatC2x, 'Input Matl#’, 12,* Elastic ft Shear Modulus, 1 , 

1 f Poison i, AML +/- Allowables*) 

c 14 f ormatC 5x , V E1 ,E2, E3 »C • , 3E9 . 2, 1 )> f $ ) 

14 format C5x, *E1,E2 »C * , 2E9 . 2 , * )> 1 $ ) 

15 format C5x, *G12,G23,G31 »C *, 3E9 . 2 ,*)>•$ ) 
c 16 formatC5x, *V12,V23,V31 »C * , 3F9 . 4, * )> * $ ) 

16 f ormatC 5x , ' V12 »C * , F9 . 4 , f )> * $ ) 

17 formate 5x , * + Allow. »C * ,3C F5 . 1 , F7 . 5) ,’)>*$ ) 

18 formate 5x,*- Allow. »C • ,3(F5. 1 ,F7 . 5) , 1 )> * $) 

c 17 f ormatC 5x , * + Allow. Point * ,il , *>>C ' ,F5 . 1 ,F7 .3, * )>•$) 
c 18 f ormatC 5x , * - Allow. Point * , il , * » C ' , F5 . 1 , F7 . 3 , f )> 1 $ ) 

19 formate 2x , * 1 ) 

c . . . 

20 formate 2x ,' Input No. of plies for the basic panel >>C 9 , 12 , 1 )> * $ ) 

21 f ormatC 5x,' Input Matl#, Thickness, Angle*) 

22 format ( 5x , 'Ply# 12, ’>>(', 12, F7. 4, F7. 2, ')>'$) A-89 



28 format(2x, 'Stiffener Type: DBlade, 2)Close Hat, 3)I-shape, 4 
1) J-shape, ' ,/18x, '5)Angle, 6)Zee, 7)Bead, 8)0pen Hat.’) 

29 format(5x,' Select axial stiffener type >>(', II ,')>'$ ) 

30 format<5x, 'Input XH,XB,XC,XT »( • ,4F6 .3, ' )>•$) 

31 format(2x, 'Input No. of plies for stiffener ELEM # , ,H,*»(* 

1 12, ')>'$) 

32 format(5x, 'Input XH,XB,XC » ( ’ , 3F6 . 3 , • )> ' $) 

33 format(5x, 'Input XH,XB >>( ’ 2F6 . 3 , • )> » $) 

34 format(5x, 'Input XH,XB,XT >>( '3F6 . 3, • )>'$) 
c ... 

wri te( 6,19) 
iaC 1 ) = 1 

writeC 6 ,11) ia(l) 
call NINTGC 1 , ia) 

NMAT=iaC 1 ) 

J=1 

do 110 1=1, NMAT 
writeC 6,13) I 
raC 1 ) =30 . E6 
ra( 2)=ra( 1 ) 
ra( 3 ) = 1 00 . 

writeC 6 , 14 ) ( ra( II ) , 1 1 = 1 , 2) 
call NREAL(2,ra) 

El ( 1 , I , J) = ra( 1 ) 

El (2 , 1 , J) = raC 2 ) 

c ... 

raC 1 )= 1 1 . 5E6 
raC 2)=raC 1 ) 
ra( 3) =ra( 1 ) 

writeC 6 ,15) ( raC 1 1 ) , 1 1 = 1 , 3 ) 
call NREALC3,ra) 
do 102 K = 1 , 3 
102 G1 CK , I , J) = raCK) 
c ... 

raC 1 )=0 . 30435 
raC 2 ) =0 . 
raC 3) = 0 . 

writeC 6 , 16 ) raCl) 
call NREALC 1 ,ra) 

VI C 1 , I , J) = raC 1 ) 

raC 1 ) = -60 . 
raC2)=0 . 001 
raC3)-0 . 
raC A) = 0 . 002 
raC 5 ) =60 . 
raC 6 ) = 0 . 003 

writeC6, l C tl Do you want to input AML Failure Parameters CY/N)? ,f $ 
*)•) 

call STITLECans) 

if C ans ,eq. ’Y 1 .or. ans .eq. I y l ) then 
writeC 6 ,17) CraC 1 1 ) , 1 1 = 1 , 6 ) 
call NREALC6,ra) 
endif 

do 104 K = 1 , 6 
104 SSCK , I , J) = raCK) 

raC 1 ) =-60 . 
raC 2) = -0 . 002 
raC3)=0 . 
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) then 


raC A)=“0 . 003 
raC5)=60. 
raC6)=-0.00A 

if ( ans . eq . f Y' .or. ans .eq. 'y 1 
wri te( 6 , 18 ) ( ra( I I ) , I 1=1 # 6 ) 
call NREALC6 , ra) 
endif 

do 105 K=7 , 12 
KK=K-6 

105 SS(K , I , J) = ra(KK) 

110 continue 

writeC 6 , 19 ) 

ia( 1 ) = 2 

writeC 6 , 20 ) iaCl) 
call NINTGC 1 , ia) 

NLAY=ia( 1 ) 
wri te( 6 ,21 ) 
writeC 6 , X) ' ' 

wri teC 6 , 1 C 2x , 1 f Are the information the same for ALL plies CY/N)? 11 
*$)’) 

call STITLE(ans) 

if ( ans .eq. 'Y* .or. ans . eq . , y l ) then 
iaC 1 ) = 1 
ra( 2 ) = 0.1 
raC 3 ) = 0.0 
1 = 1 

writeC 6 , 22) I, ia(l), ra(2), ra(3) 
call NREAL ( 3, ra) 
ia( 1 ) = int ( ra( 1 ) ) 

MW( 1 ) = iaC 1 ) 

TW( 1 ) = ra( 2) 

PWC1) = ra( 3) 
do 119 i=2,NLAY 
MWC i )=mw( 1 ) 
twC i ) =tw( 1 ) 
pw( i )=pw( 1 ) 

119 continue 
else 

do 120 I = 1 , N L A Y 
iaC 1 )=1 
ra(2)=0 . 1 
ra(3)=0 . 0 

if Cl .eq. 1) raC3)=-A5. 

if (I .eq. 2) ra( 3)= A5. 

wri te( 6 , 22 ) I,ia(l),raC2),ra(3) 

call NREALC3 , ra) 

iaCl) = intCra(l)) 

MWC I ) = iaCl) 

TWC I ) = raC2) 

120 PWCI) = ra( 3 ) 
endif 

writeC 6 ,19) 
iaC 1 )=1 
writeC 6 , 28) 
writeC 6 , 29) iaCl) 
call NINTGC 1 , ia) 

MTYP=iaC 1 ) 
raC 1 ) = 0 . 4 
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ra( 2)=0 . 5 

ra( 3 ) =0 . 35 

ra( A ) =0 . 25 

if (MTVP.eq.l) then 

write(6,32) ra( 1 ) , raC 2) , ra( 3 ) 
call NREALC3 , ra) 

XH=ra(l) 

XB=ra( 2 ) 

XC=ra( 3 ) 

elseif ( MTYP . eq . 5 . or . MTYP . eq . 7 ) then 
write(6,33) ra(l),ra(2) 
call NREAL(2,ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

elseif (MTYP.eq.6) then 
write (6,34) XH,XB,XT 
call NREALC 3, ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

XT =ra( 3) 
else 

write (6, 30) ra(l),ra(2) J ra(3),ra(A) 
call NREALC A ,ra) 

XH=ra( 1 ) 

XB=ra( 2 ) 

XC=ra ( 3 ) 

XT=ra(A) 

endif 

if (MTYP .eq.l.or . MTYP . eq . 5) then 
IP = 2 

elseif CMTYP.eq.2) then 
IP = A 
else 
IP = 3 
endif 

do 130 11 = 1, IP 
wr i te( 6 >19) 
iaC 1 ) =2 

write(6,31) Il,ia(l) 
call NINTGC 1 , ia) 

MLAYC I 1 ) =ia( 1 ) 
writeC 6 , 21 ) 
write(6,*)' f 

write(6 , f (2x, * 1 Are the information the save for ALL plies (Y/N)? ,f 
*$)•) 

call STITLE(ans) 

if ( ans .eq. , Y* .or. ans .eq. f y*) then 
iaC 1 ) =1 
ra( 2 ) =0 . 1 
ra( 3 ) =0 . 0 
i = l 

write(6,22) i , ia( 1 ) , ra( 2) , ra( 3) 
call NREALC 3 ,ra) 
ia( 1 ) = int ( raC 1 ) ) 

MS( 1 , 1 1 ) = ia( 1 ) 

TSC 1 , 1 1 ) = ra(2) 

PSC1,I1) = ra(3) 
do 131 i=2,mlay(Il) 
ms(i,il)=ms(l,il) 
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131 


132 

130 


c . . 


9 

10 

11 

12 

13 

14 

15 

16 


c . . 


c . . 


ts( i , il ) =ts( 1 , il ) 
ps(i,il)=ps(l,il) 
continue ; 
else 

do 132 1=1 ,MLAY( Il ) 
ia( 1 )=1 
ra( 2) = 0 . 1 
ra( 3)=0 . 0 

if (I .eq. 1) ra(3)=-45. 
if (I .eq. 2) ra( 3 ) = 45. 
ia( 1 ) =ra( 1 ) 

write(6,22) I ,ia( 1) ,ra(2) ,ra(3) 
call NREAL( 3 , ra) 
ia(l) = int(ra(D) 

MS(I,I1) = ia(l) 

TS( 1,11) = ra( 2 ) 

PS(I,I1) = ra( 3 ) 

endif 

continue 


return 

end 


SUBROUTINE menuO 

common /mesh/ M , N , MI , NI , AX , BY , R , AC 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT,E1 ( 3 , 10# 5) , VI ( 3 , 1 0 , 5) ,G1 C 3 , 10 , 5) , Al( 3 , 10 , 5 ) , 

1 SS(12,10,5),NT(10),NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC 4 ) ,MS( 30 , 4) ,TS( 30 ,4) ,PS(30,4) 
common /load/ LARG, LEND , LRI B , LRBC , LEBC,LSBC,LT0T,FL(4) , 

1 LBC11 ,LBC12,LBC13,LBC14 

common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ia( 1 0 ) , raC 1 0 ) , NAME( 1 0 ) 
character NAME*80 
format(3x, 'MESH MENU (MENUO): 1 ) 
f ormat ( 4x , 1 0 , 0) Geometry 8 General Data 1 ) 

f ormat ( 4x , 1 0 , 1 ) Base Panel Width, Length and Radius f ,3F10.3) 
f ormat ( 4x , 1 0 , 2 ) No. of Stiffeners and Ribs CM, N):*, 215) 
f ormat ( 4x , * 0 , 3 ) No. of GRID Between Stiffeners and RibsCMI , NI ) : 1 , 2 
*15) 

f ormat ( 4x, 1 0 , 4) Stiff ener_locations (A): f ,6F7.3) 
f ormat ( 4x , • 0 , 5 ) Rib_locations (B): f ,6F7.3) 

formatC 3x , 1 ) 

call NEWPAGE 
writeC 6 , 9 ) 
ia( 1 ) =0 


ia( 2)=0 
write(6 , 10 ) 
writeC 6 ,11) 
writeC 6 , 12 ) 
writeC 6 ,13) 
write(6 , 14) 
write(6 , 15) 
writeC 6 ,16) 


AX, BY, R 
M,N 
MI , NI 

( AC I ) , 1 = 2 , M+l ) 
(BCI), 1=2, N+l ) 


return 

end 


SUBROUTINE menul(IMAT) 

common /mesh/ M , N , MI , NI , AX , BY , R , AC 1 0 ) , B( 1 0 ) , NGRID 
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common /matl/ NMAT,E1(3,10 ,5) ,V1(3, 10 ,5) ,G1(3, 10 ,5) ,A1(3, 10,5) , 

1 SS (12,10, 5), NT CIO), NAME 

common /wall/ NLAY,MW(30) ,TW(30) ,PWC30) 

common /secb/ MTYP , XH ,XB , XC , XT , MLAYC A ) ,MS( 30 , 4) , TSC30, 4 ) , PS< 30 , 4 ) 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension iaCl 0 ) , ra( 1 0 ) , NAME (1 0 ) 
character ansXl , NAME*80 
9 f ormat (3x, 'MATL MENU (MENU1 ) : ' ) 

10 formate 4x , *1,0) Total No. of Materials (NMAT): f ,I3) 

11 format(4x,' Properties for MATL No. :',I2) 

14 formatdOx, 'Elastic Modulus CE1 ,E2,E3> : ' ,3E9 .2) 

14 formatdOx, 'Elastic Modulus ( El , E2) : * , 2E9 . 2) 

15 formate lOx , * Shear Modulus ( G12 ,G23 ,G31 ) : * , 3E9 . 2) 

16 formate lOx, 'Poisson Ratio ( V12 , V23 , V13) : f 3,F9 .4) 

16 formate lOx , 1 Poisson Ratio ( VI 2 ) : 1 , F9 . 4) 

17 formatdOx, 'AML + A1 lowables : ' , 3( F5 . 1 , F7 . 5 ) ) 

18 formatdOx, 'AML - A1 lowables : f , 3( F5 . 1 , F7 . 5 ) ) 

19 formate 3x , * ) 

20 formatdOx, 'Name of the Material: ',80A) 

21 formatdOx, '1, Mi,') ',a40) 

21 formate 4x, f l, ' , il , * ) ',a40) 

21 f ormat ( 4x ,' 1 il ) Material Number *,il) 

call NEWPAGE 
wri te( 6 , 9 ) 
write( 6 ,10) NMAT 
do 1 i = l , I MAT 

write(6,21) i,i 
1 continue 

return 

end 

SUBROUTINE menu2 

common /mesh/ M, N ,MI , NI , AX , BY, R , AC10 ) , BC10 ) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5) , VI ( 3 , 10, 5) ,G1 (3, 10 ,5) , A1 C 3 , 10 , 5) , 

1 SS (12,10, 5), NT (10), NAME 

common /wall/ NLAY , MW( 30 ) , TWC 30 ) , PW( 30 ) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY(4) ,MS(30,4) ,TS(30,4) ,PSC30,4) 
common /solve/ NBUC, TAR , NDF , ND , MO 
dimension ia(10),ra(10) , NAMEC10) 
character ans*l , NAME*80 
9 formate 3x, 'Base Ply MENU (MENU2) : 1 ) 


10 f ormat(4x, '2, 0) No. of Plies for The Base Panel (NLAY): f , 13) 

11 formatC4x,' Ply # Material f Thickness Angle*) 

12 f ormate 8x , I4,8x, 12, 7x,f 7 . 4, 2x ,f 7 . 1 ) 

19 f ormat(3x, ' ' ) 


call NEWPAGE 
write (6,9) 
write( 6 ,10) NLAY 
writeC 6 ,11) 
do 1 1=1, NLAY 

1 writeC 6 ,12) I ,MW( I ) ,TW( I ) , PW( I ) 
writeC 6 , 19) 

return 

end 

SUBROUTINE menu3(ILAY) 

common /mesh/ M,N,MI,NI,AX,BY,R,A(10) , B( 10) , NGRID 


common /matl/ NMAT ,E1(3,10,5),V1C3,10,5),G1(3,10,5),A1(3,10,5), 

1 SS (12, 10, 5), NT CIO) , NAME 

common /wall/ NLAY , MWC 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) , MS( 30 , A ) , TS( 30 , 4 ) , PS( 30 , 4 ) 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ia( 10) , ra( 10) , NAMEC 10) 
character ans*l , NAME*80 

10 format(3x, 'STIF MENU CMENU3):') 

11 f ormatC 5x ,* 1 ) Blade , 2)Close Hat, 3)I-shape, 4)J-shape,', 

1 / , 5x , ' 5 ) Angle , 6)Zee, 7)Bead, fl)0pen Hat.') 

12 formatC Ax , *3,0) Type of Stiffener :',I3) 

13 format(10x, ’XH= f ,F6 .3, f XB=' ,F6.3) 

14 formatC lOx, , XH= I , F6 . 3 , ' XB=',F6.3,' XC=',F6.3) 

15 formatC 1 Ox , 1 XH= 1 , F6 . 3 , ’ XB=',F6.3,' XT=',F6.3) 

16 formatC 10x, , XH= , ,F6.3,* XB=',F6.3,* XC=',F6.3,' XT=»,F6.3) 

17 f ormatC 4x , '3, 1 ,il, ') No. of Plies for STIF , ELEMC ' , I 1 , ' ) : 1 , 13 ) 

18 formatC 4x , 9 Ply # Material # Thickness Angle') 

19 format(8x, I4,8x,I2,7x,f7.4,2x,f7.1) 

20 formatC 3x , ' ') 


call NEWPAGE 
writeC 6,10) 
writeC 6,11) 
writeC 6 , *) ’ ' 

c.. indicate which type of stiffener 
writeC 6 , 12 ) MTYP 

c.. print dimensions of the stiffener on screen 
if CMTYP .eq. 5 .or. MTYP .eq. 7) then 
writeC 6,13) XH,XB 
el seif CMTYP .eq. 6) then 
writeC 6 , 15 ) XH,XB,XT 
elseif CMTYP .eq. 1) then 
writeC 6,14) XH,XB,XC 
else 

writeC 6,16) XH,XB,XC,XT 
endif 

c.... print nominal stiffener element info, 
do 1 i=l , ILAY 

writeC 6 , 17 ) i,i,MLAYCi) 

1 continue 

c.. back to fmod3 for choosing items to modify ... 
writeC 6,20) 
return 
end 

c ... 

SUBROUTINE menu4 

common /mesh/ M,N,MI,NI,AX,BY,R,AC10),BC10) , NGRID 

common /matl/ NMAT, E1C3, 10, 5) ,V1C3, 10,5) ,G1C3, 10,5) ,A1C3, 10,5) , 

1 SSC12,10,5),NTC10), NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC 4) ,MSC30,4) ,TSC30,4) ,PS(30,4) 
common /load/ LARG, LEND ,LRIB,LRBC,LEBC,LSBC,LT0T,FL(4), 

1 LBC11,LBC12,LBC13,LBC14 

common /solve/ NBUC , TAR , NDF , ND ,M0 
dimension iaC 1 0 ), raC 1 0 ), NAMEC 1 0 ) 
character ans*l , NAME*80 

c ... 

9 formatC3x, 'BCLC MENU CMENU4 Boundary Cond. 8 Loading Cond.):') 

19 formatC 3x ,' ') 

20 formatC2x,' Boundary Condition Definition ') 
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21 formate Ax , 1 The model is a part of a much large panel ? >',A1) 


22 formate Ax , 'There are ribs at Ends ? > f ,Al) 

23 formateAx, *Ribs on:(l)Skin (2)STIF C3)Both ? >M1) 


2A formattAx , * B . C . type 3 Ribs: 1) Simply Supp.; 2) S.S. and Rot.;*, 
l f -->■• ill) 

25 formate Ax , 1 B . C . type no. at Ends: 1 , 

*/6x,*l) Part of Larger Panel;*, 

*/6x,*2) Free; 3) Simply Supp . ; ' , 

2/6x , * A ) Clamped- l/axial+ lateral free; 5) Clamped-2/axial free*, 
3/6x,*6) Fully Clamped eall DOF fixed) >*,I1) 

26 f ormat e 2x , * B . C . type no. at Sides:*, 

*/6x,*l) Part of Larger Panel;*, 

l/6x , * 2 ) Free; 3) Simply Supp.;*, 

2/6x , ’ A ) Clamped- l/axial+ lateral free; 5) Clamped-2/axial free*, 
3/6x,*6) Fully Clamped eall DOF fixed) >*,I1) 

30 f ormat e 2x , * Loading Condition Definition *) 

31 formate Ax ,* Loads type ei:Total lb; 2:Line lb/in) >*,I1) 


32 formate 7x , *axial load > * , FI 0 . 1 ) 

33 formate7x, * lateral load >*,F10.1) 

3A f ormate 7x ,* shear load along ends >*,F10.1) 


35 formate 7x, 1 lateral pressure in psi >*,F10.2) 

c ... 
c ... 

call NEWPAGE 
writeC 6,9) * 

wri tee 6 , 20 ) 
ans= ’ N * 

c if eLARG .eq. 1) ans=*Y' 

c writee6,21) ans 

ans= * N 1 

if eLEND .eq. 1) ans=*Y* 

write(6,22) ans 

writeC 6 , 23) LRIB 

writeC 6 , 2A ) LRBC 

wri teC 6 , 25) LEBC 

wr i te(6 , 26 ) LSBC 

wri tee 6 , 30 ) 

wri tee 6 ,31 ) LTOT 

writee6,32) FL(1) 

wri tee 6 , 33) FLe 2) 

wri tee 6 , 3A ) FLC3) 

wri tee 6 , 35 ) FLeA) 

c ... 

return 

end 

c ... 

SUBROUTINE flist 

common /mesh/ M,N,MI ,NI , AX, BY, R, Ae 10) ,B(10) ,NGRID 

common /matl/ NMAT , El e 3 , 1 0 , 5) , VK3, 10, 5) ,61(3,10,5) ,A1(3, 10,5) , 

1 SS(12,10,5),NTei0), NAME 

common /wall/ NLAY,MW(30) ,TWe30) ,PW(30) 

common /seeb/ MTYP , XH , XB , XC , XT ,MLAY( A) ,MS(30,A) ,TS(30 , A) ,PSe30 , A) 
common /load/ LARG , LEND , LRIB , LRBC, LEBC, LSBC, LTOT ,FL( A) , 

1 LBC11,LBC12,LBC13,LBC1A 

common /solve/ NBUC,TAR , NDF , ND ,M0 
dimension ia( 10) ,rae 10) , NAMEe 10) 
character NAME*80 
c 

cl 2 3 A 5 6 72 

C ... A-96 


c 

c 


. list input 


9 

10 

11 

12 

13 

14 

15 


formatC 4x , 'm , n ) 


1 '(general 
formatC 4x , 
formatC 4x , 
formatC 4x , 
formatC 4x , 
formatC 4x , 
formatC 4x , 


MESH 

0 , 0 ) 

0 , 1 ) 

0 , 2 ) 

0,3) 

0,4) 

0,5) 


>>> MAIN MENU <« », 
data)') 

Geometry & General Data 1 ) 

Base Panel Width, Length and Radius V ,3F10.3) 

No. of Stiffeners and Ribs CM, N):', 215) 

No. of GRID for Stiffeners and RibsCMI , NI ) : ' , 215 ) 
Stiff ener_locations ( A) : ' , 6F7 . 3 ) 

Rib_locations (B):',6F7.3) 


c ... 

16 f ormat ( 4x , ' 1 , 0 ) Total No. of Materials (NMAT):',I2) 


17 f ormat ( 4x , ' f ) 

18 f ormat ( 4x , ' »> OTHER MENUS <<< 


1 '(MATL, BASE Ply, STIF Ply, BC 8 LC) ' ) 


21 

29 


30 

31 

32 

33 

34 

35 

36 

37 

38 

1 


c . . 


f ormat ( 4x , 
f ormat ( 4x , 
1 /4x , 

lOpen Hat = 8 
formatC 1 Ox 
f ormat ( 4x , 
format C 4x , 
formatC 4x , 
formatC 4x , 
f ormat ( 4x , 
formatC 1 Ox 
format ( 1 Ox 
formatC 1 Ox 


2 , 0 ) 

3.0) 
Blade 

' ) 

• XH= 1 

3.1) 

3.2) 

3.3) 

3.4) 
4,0) 
*XH= 1 
'XH = 1 
*XH = ' 


No. of Plies for The Base Panel ( NLAY) 12 ) 

Axial stiffener type No . (MTYP) : ' , 12 , 

= 1, Close Hat=2,"I"=3 , " J"=4 , Angle=5 ,"Z I, =6 , Bead=7 , 

, F6 . 3 , * XB=',F6.3,' XC=',F6.3, f XT=',F6.3> 

No. of Plies for STIF, Element 1 (MLAY1 ) : • , 12) 

No. of Plies for STIF, Element 2CMLAY2) : ' , 12) 

No. of Plies for STIF, Element 3CMLAY3) : * , 12) 

No. of Plies for STIF, Element 4CMLAY4) : ' , 12) 

Boundary & Loading Conditions') 

, F6 . 3 , ' XB = ' , F6 . 3 , * XC=',F6.3) 

, F6 . 3 , • XB= ' , F6 . 3) 

, F6 . 3 , ' XB= ' , F6 . 3 , ' XT=',F6.3) 


call NEWPAGE 

writeC 6,9) 

ia( 1 ) = 0 

ia( 2 )=0 

writeC 6 ,10) 

writeC 6,11) AX , BY, R 

writeC 6,12) M, N 

writeC 6,13) MI,NI 

writeC 6, 14) 1 C AC I ) , 1 = 2 , M+l ) 

writeC 6, 15) ( BC I ) , 1=2 , N+l ) 


writeC 6 , 17 ) 
writeC 6 , 18 ) 
writeC 6 , 16 )NMAT 
writeC 6 , 21 )NLAY 
writeC 6 , 29 )MTYP 
if CMTYP.eq'l) then 
wri teC6 , 36 )XH , XB , XC 
elseif CMTYP.eq.S.or .MTYP.eq.7) then 
writeC 6 , 37 ) XH,XB 
elseif CMTYP.eq.6) then 
wri te( 6 , 38 ) XH,XB,XT 
else 

wri teC 6 , 30 ) XH,XB,XC,XT 
endif 

writeC 6 , 35 ) 


writeC 6 , ' ( " Select m,n=> -1 : END ; 9:QUIT; m,n: UPDATE » ,f $) f ) 
iaC 1 )=0 
iaC 2) = 0 
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call NINTG(2,ia) 

ISEL1= ia( 1 ) 

ISEL2= ia(2 ) 

50 if (ISEL1 .eq. -1) go to 90 
if (ISEL1 .eq. 9) call QUIT 

if (ISEL1 .eq. 0 .and. ISEL2 ,ne. 0) call fmodO(ISEL2) 

if ( ISEL1 . eq . 0 .and. ISEL2 .eq. 0) go to 1 

if (ISEL1 .eq. 1 ) call fmodl ( ISEL1 , ISEL2) 

if (ISEL1 .eq. 2 ) call f mod2( ISEL1 , ISEL2) 

if (ISEL1 .eq. 3 ) call fmod3( ISEL1 , ISEL2) 

if (ISEL1 .eq. <\ ) call fmod9( ISEll , ISEL2) 

go to 50 

c ... 

90 continue 
return 
end 

c ... 
c ... 

SUBROUTINE fmodO(IS2) 

common /mesh/ M,N,MI ,NI , AX, BY,R , A( 10) ,B(10) ,NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5) , VI ( 3 , 1 0 , 5) , G1 ( 3 , 1 0 , 5) , AI (3 , 1 0 , 5) , 

1 SS (12, 10,5), NT (10) , NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP,XH,XB,XC,XT ,MLAY( A) ,MS(30,A) ,TS(30, A) ,PS(30,A) 
common /solve/ NBUC , TAR , NDF , ND , MO 

c 1 2 3 A 5 6 72 

c ... 

c . modify geometry input 
c ... 

dimension ra( 1 0 ) , ia( 1 0 ) , NAME( 1 0 ) 
character ans*l , NAME ^80 

11 format(5x, 'Modify Panel Width, Length and Radius >>(•, 3F8 . 3 ,*)>•$ ) 

12 format(5x, 'Modify No. of Stiffeners and Ribs >>( 1 ,213, ' )> '$) 

13 f ormat( 5x ,' Modify No. of Sub-Grid between Stif/Rib >>( • ,212 , * )> f $ ) 
1A format(5x, 'Modify* ,12, ' Axial Stiffener locations »»$) 

15 format(5x, 'Modify' ,12, • Lateral Rib locations »'$) 
c ... 

call menuO 

if (IS2 .le. 1) then 
ra( 1 ) =AX 
ra( 2 ) =BY 
ra(3)=R 

write(6,ll)ra(l),ra(2),ra(3) 
cail NREAL(3,ra) 

AX=ra( 1 ) 

BY=ra( 2) 

R=ra(3) 

endif 

if ( IS2 .le. 2) then 
ia( 1 )=M 
ia(2)=N 

write( 6 , 12 ) ia(l) ,ia(2) 
call NINTG(2,ia) 

M=ia( 1 ) 

N=ia(2) 

endif 

if ( IS2 .le. 3) then 
ia( 1 ) =MI 
ia(2)=NI 

wri te( 6 ,13) ia(l),ia(2) 
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c 


write(6,*)' • 

write(6 , ' ( 5x , ’ 'Does the user want to specify Sub-Divisions? 
*N)")') 

write(6,'(5x, "Enter »”♦>•) 
call STITLE(ans) 

if Cans .eq. 'N' .or. ans . eq . 'n') then 

MI=2 

NI = 3 

write(6 ,' (5x, "Sub-Grids between Stiffeners are 2.")') 
write(6 ,' (5x, "Sub-Grids between Ribs are 3.")') 
elseif (ans .eq. 'Y' or. ans . eq . 'y’> then 

write(6 ,13) ia(l)»ia(2) 
call NINTG(2,ia) 

MI=ia(l) 

NI=ia(2) 

endif 

endif 

if (IS2 .le. 4) then 


CY/ 


DA = AX/M 
A(l) = -DA/2, 
do 1 I = l.M 
1 A( 1+1 ) = A(I) + DA 
Ad) = 0. 

A(M+2) = AX 


c 

c 


end of correction 1-8-92 

write(6, ' (5x, "Stiffeners equally spaced (Y/N)? 
ans= *Y* 

call STITLE(ans) 

if (ans .eq. 'Y* or. ans .eq. 'y') go to 4 
write(6,14) M 
call NREAL(M,ra) 
do 3 1=1, M 

3 A(I+1) = rad) 

4 A(M+2) = AX 
endif 

if (IS2 .eq. 5 .or. IS2 .le. 3) then 


»(Y)>' '$) ' ) 


Bd ) = 0 . 

DB = BY/(N+1) 
do 2 1=1, N+l 
2 B(I+1 ) = DB * I 

write(6, '(5x, "Ribs equally spaced (Y/N)? »(Y)>"$)') 
ans='Y* 

call STITLE(ans) 

if (ans .eq. 'Y' .or. ans .eq. *y') go to 6 
write(6,15) N 
call NREAL(N,ra) 
do 5 1=1, N 

5 B(I+1 ) = ra(I) 

6 B(N+2) = BY 
endif 


110 write(6,112) 
ia( 1 ) = 1 
ia(2)=0 

call NINTG(2, ia) 
ISl=ia(l ) 
IS2=ia(2) 

111 continue 
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112 f ormat(3x , 1 Selection=> l,n: modify MATL in;*, 

1 ' -l:End; 9 .Quit; m,0: other MENUS >>•$) 
return 
end 

c ... 
c 

SUBROUTINE fmodl ( IS1 , IS2) 

common /mesh/ M , N , MI , NI , AX , BY , R , A( 1 0 ) , B< 1 0) ,NGRID 

common /matl/ NMAT ,E1 ( 3, 10 , 5) , VI ( 3 , 10 ,5) ,G1 (3, 10 ,5) , A1 (3 , 10 , 5) , 

1 SS (12, 10, 5), NT (10), NAME 

common /wall/ NLAY , MW( 30 ) , TW( 30 ) , PW( 30) 

common /secb/ MTYP , XH , XB , XC , XT , MLAY(9 ) ,MS(30 , A) ,TS( 30 , 4 ) , PS( 30 , A ) 
common /solve/ NBUC,TAR,NDF,ND,M0 

c ... 

c . modify geometry input 
c ... 

dimension ra( 10) , ia( 10) , NAME( 10) 
character ans*l , NAMEK80 

11 format(5x, 'Enter E1,E2 > •$) 

12 format(5x, 'Enter G12,G23,G31 > '$) 

13 format(5x, 'Enter V12 > '$) 

19 format(5x, 'Enter AML + Allowables (3 pairs)> •$) 

15 format(5x, 'Enter AML - Allowables (3 pairs)> '$) 

16 format(5x, 'Update Elastic Modulus (Y/N)? »(N)>'$) 

17 format( 5x, 'Update Shear Modulus (Y/N)? >>(N)>'$> 

18 format(5x, 'Update Poisson Ratio (Y/N)? >>(N)>'$) 

19 format(5x, 'Update AML +Allowables( Y/N)? »(N)>'$) 

20 format(5x, 'Update AML -Allowables(Y/N)? >>(N)>'$) 

21 format(5x, 'Modify Above Material Properties (Y/N)? >>(N)>'$) 

22 f ormat ( 5x , ' Add MATL ID', 12,' (Current number of MATL= ' , 12, ' ) • ) 

23 format(5x, 'Add New Material No. ',i2,' (Y/N)? >>(Y)>'$) 

29 format(5x, 'Name of the Material > '$) 

25 format(5x, 'Update Name of the Material (Y/N)? »(N)>'$) 

26 format(5x, 'Add Material (Y/N)? »(N)>'$) 

112 format(3x, 'Selection=> l,ns modify MATL in;*, 

1 / , 5x , ' - 1 : Exit; 9: Quit; m,0: other MENUS »•$> 

113 f ormat( 9x, ' Properties for MATL No. :',I2) 

119 format(5x, 'l>>Elastic Modulus (El ,E2) : • , 2E9 . 2) 

115 format(5x, *2>>Shear Modulus (G12,G23,G31 ) : ' ,3E9 . 2) 

116 format(5x, '3>>Poisson Ratio (V12) : • ,F9.9) 

117 format(5x, '9»AML + Allowables :', 3(F5 . 1 ,2x,F7 . 5) ) 

118 format(5x, '5>>AML - Allowables: ' ,3(F5.1,2x, F7. 5)) 

119 f ormat ( 3x , ' 

110 IMAT=NMAT 

call menul(IMAT) 
write(6,112) 
ia( 1 )=1 
ia(2)=0 

call NINTG(2,ia) 

ISl=ia( 1 ) 

IS2=ia(2) 

if (IS1 .ne. 1) go to 111 
if ( IS2 .eq. 0) go to 100 


call NEWPAGE 

write(6 ,113) IS2 

write( 6 ,119) (El( j , Is2, 1 ) , j=l , 2) 

write(6 ,115) (G1 ( j , Is2 , 1 ) , j=l , 3) 

write(6 ,116) ( VI ( j , Is2, 1 ) , j=l , 1 ) 
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write (6, 117) ( SS( j , Is2 , 1 ) , J=1 , 6 ) 
write(6 , 118) ( SSC j , Is2 , 1 ) , J = 7 , 12) 
write(6 ,119) 

writeC 6,21) 
ans= * N' 

call STITLE(ans) 

if (ans .eq. 'N' .or. ans .eq. 'n') go to 10 
writeC 6 , * ( Ax , • 1 Select Item to be modified »••$)•) 
call NINTGC 1 ,kk) 
go to ( 1 , 2 i 3 , 4 t 1 )kk 

1 continue 
writeC 6 , 16 ) 
ans- 1 N 1 

call STITLE(ans) 

if (ans .eq. 'N* .or. ans .eq. ’n') go to 10 

continue 

writeC 6,11) 

ra(l)=El(l,IS2,l) 

ra(2)=El(2,IS2,l) 

ra(3)=100. 

call NREAL(2,ra) 

El(l,IS2,l)=ra(l) 

El(2,IS2,l)=ra(2) 

El(3,IS2,l)=ra(3) 
go to 10 

2 continue 

write(6,17) 
ans= ' N • 

call STITLE(ans) 

if (ans .eq. ’N 1 .or. ans .eq. 'n') go to 10 

writeC 6,12) 

rad )=G1 ( 1 , IS2 , 1 ) 

ra(2)=Gl(2,IS2,l) 

ra(3)=Gl(3,IS2,l) 

call NREAL(3,ra) 

Gl(l,IS2,l)=ra(l) 

Gl(2,IS2,l)=ra(2) 

Gl(3,IS2,l)=ra(3) 
go to 10 

3 continue 

write(-6 , 18) 
ans=’N' 

call STITLE(ans) 

if (ans .eq. 'N' .or. ans .eq. *n') go to 10 

write(6,13) 

ra(l)=Vl(l,IS2,l) 

ra(2)=0 . 

ra(3)=0 . 

call NREAL( 1 ,ra) 

Vl(l,IS2,l)=ra(l) 

Vl(2,IS2,l)=ra(2) 

Vl(3,IS2,l)=ra(3) 
go to 10 
A continue 


c 


write( 6 , 19 ) 
ans= * N' 
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call STITLE(ans) 

if Cans . eq . 'N 1 .or. a ns . eq . f n') go to 10 
write(6 , 14) 
do 5 1-1,6 

5 ra(I) = SSd,I$2,l) 
call NREALC6 , ra) 
do 6 1=1,6 

6 SS(I ,IS2,l)=ra(I) 
go to 10 

7 continue 

writeC 6 ,20) 
ans= 1 N 1 

call STITLE(ans) 

if Cans .eq. 'N* .or. ans .eq. 'n') go to 10 
writeC 6,15) 
do 8 1=1,6 
11=1+6 

8 ra( I)-SS(II , IS2, 1 ) 
call NREALC 6 ,ra) 
do 9 1=1,6 

11 = 1 + 6 

9 SS( II , IS2 , 1 )=raC I) 

10 go to 110 


100 itmp=IHAT+l 

write(6,23) itmp 
ans= 1 Y • 

call STITLE(ans) 

if (ans .eq. 'N* .or. ans .eq. 'n') go to 110 


call NEWPAGE 
NMAT=itmp 
writeC 6 , 11 ) 
ra(l) = El(l, I MAT , 1 ) 
ra(2)=El(2, I MAT, 1 ) 
ra(3)=El ( 3, I MAT , 1 ) 
call NREALC 3 , ra) 
El(l , i tmp , l)=ra(l) 
El (2, itmp, 1 )=ra(2) 
El (3 ,itmp, 1 )=ra(3) 

write(6,12) 
ra(l )=*G1 ( 1 , 1 MAT , 1 ) 
ra( 2)=G1( 2, IHAT , 1 ) 
ra( 3)=G1 ( 3 , I MAT , 1 ) 
call NREAL(3,ra) 
Gld , itmp, 1 )=ra(l) 
G1 (2, itmp, l)=ra(2) 
Gl(3,itmp,l)=ra(3) 

write(6 , 13) 
rad ) = V1 (1 , I MAT , 1 ) 
ra(2)=Vl (2, I MAT, 1) 
ra(3)=Vl(3, IHAT , 1 ) 
call NREALC 3, ra) 

VI d ,itmp,l)=ra(l) 
VI (2 , itmp, 1 )=ra(2) 
VI (3, itmp, 1 )=ra(3) 


c . . 
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c 


AML input . . . 


ra(l) = -60. 
ra( 2) = 0.001 
ra( 3) = 0. 
ra(4) = 0.002 
raC 5) = 60. 
ra( 6 ) = 0.001 

write(6, 1 ( • ’Do you want to input AML Failure Parameters (Y/N)? ,f $) 
* f ) 

call STITLE(ans) 

if ( ans .eq. , Y* .or. ans .eq. ’y') then 
writeC 6 , 14 ) 
do 105 1=1,6 

105 ra(I)=SS(I, I MAT , 1 ) 
call NREALC 6 , ra) 

endif 

do 106 1=1,6 

106 SS(I,itmp,l)=ra(I) 
c ... 

if ( ans .eq. 'Y* .or. ans .eq. 'y* ) then 
writeC 6 , 15 ) 
do 108 1=1,6 
11=1+6 

108 ra(I)=SS(II, I MAT , 1 ) 
call NREAL( 6 , ra) 

endif 

do 109 1=1,6 
11=1+6 

109 SSC I 1 , itmp , 1 ) =ra( I ) 
c ... 

c ... 

Ill continue 
return 
end 

c ... 

SUBROUTINE f mod2( IS1 , IS2) 

common /mesh/ M, N .MI , NI , AX , BY , R , AC 10 ) , B( 10) , NGRID 

common /matl/ NMAT ,E1 ( 3, 10 , 5) , VI (3 , 10 ,5) ,G1 C 3, 10 ,5) , Al(3, 10 , 5) , 

1 SS (12,10, 5), NT (10) .NAME 

common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ HTYP , XH , XB , XC , XT , ML AY (A) ,MS(30,A),TS(30,A),PS(30,A) 
common /solve/ NBUC, TAR , NDF , NO ,MO 

c . . . 

c . modify basic panel plies 

c ... 

dimension ra(10) ,ia(10) ,NAME( 10) 
character ans*l , NAME*80 

11 format(5x, 'Modify the no. of plies a the panel(Y/N)? >>(N)>'$) 

12 format(5x,' Enter MATL#, THK S An 0 le a PLY #',I2,'> , $) 

13 format(5x, 'Enter the number of plies >>( ' , 12, * )> '$) 

1A f ormat( 3x , ' Selection => 2,n: modify panel plies;', 

1/,' - 1 : End ; 9:Quit; m,0: other MENUS >>'$) 

c ... 

1 if (1S1 .ne. 2) go to 9 
call menu2 
writeC 6 ,11) 
ans= f N * 

call STITLE(ans) 

if (ans .eq. ’N 1 .or. ans .eq. 'n 1 ) go to 10 
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ia( 1 )=NLAY 
writeC 6,13) ia(l) 
call NINTGC 1 , ia) 

NLAY=i^( 1 ) 
wri te( 6 , X) 1 • 

writeC 6 , ’ ( 5x , 1 'Enter MATL# , THK & Angle 9 PLY #>•*)») 
writeC 6 , ' C2x, 1 r Are all information the same for ALL plies (Y/N)?** 
*$)') 

call STITLE(ans) 

if C ans .eq. , Y I .or. ans .eq. ■y 1 ) then 
ia(l)=mw(l) 
raC 2) = twC 1 ) 
raC 3)=pwC 1 ) 
ii = l 

writeC 6 , 12)ii 
call NREALC3,ra) 
ia ( 1 ) = int ( ra( 1 ) ) 
mw( 1 ) = iaC 1 ) 
twC 1 ) =ra( 2) 
pw( 1 )=raC3) 
do 20 i=2,NLAY 
mwC i )=mw( 1 ) 
tw( i ) = twC 1 ) 
pw( i)=pw( 1 ) 

20 continue 

go to 30 
else 

do 2 1=1, NLAY 
ia( 1 ) =MW( I ) 
raC 2) =TW( I ) 
raC 3) = PWC I ) 
writeC 6 ,12) I 
call NREALC3,ra) 
iaC 1 ) = int(ra( 1 ) ) 

MW( I )=ia( 1 ) 

TW( I ) =ra( 2 ) 

2 PWC I )=ra( 3) 
go to 30 
endif 

10 writeC 6 , 1 ( 1 1 Choose PLY NUMBER to modify CY/N)? ff $)') 
call STITLE(ans) 

if C ans .eq. 1 Y 1 .or. ans .eq. , y l ) then 
write(6, * C 1 1 Enter PLY NUMBER *'•$)•) 
call NINTG(l,kp) 
write(6,12)kp 
call NREALC3,ra) 
ia(l) = int(raCl)) 

MW(kp)=ia(l ) 

TWCkp)=ra(2) 

PWC kp) = ra( 3) 
endif 

30 writeC 6 , 14) 
ia( 1 )=2 
ia( 2 )=0 

call NINTG(2,ia) 

ISl=iaC 1 ) 

IS2=ia(2) 
go to 1 


c 
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c 


9 continue 
return 
end 


c ... 

SUBROUTINE fmod3( IS1 , IS2) 

common /mesh/ M , N , MI , NI , AX , BY , R , A( 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI C 3 , 1 0 , 5) ,G1 C 3 , 1 0 , 5 ) , A1 ( 3 , 1 0 , 5 ) , 

1 S$(12,10,5) , NT ( 1 0 ) , NAME 

common /wall/ NLAY,MW(30),TW(30),PW(30) 

common /secb/ MTYP , XH , XB , XC , XT , HLAY( A ) ,MS( 30 ,4) ,TS( 30 , A) , PS( 30 , A ) 
common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ra( 10 ) ,ia( 10 ) , NAMEC 1 0 ) 
character ans*l , NAME*80 

c ... 

c . modify MENU3 : STIF, ELEMENT Ply Layup 
c ... 

11 f ormat ( 3x , 1 Selection => 3,n: modify panel plies; 1 , 

1/ , 16x , * - 1 : End ; 9:Quit; m,0: other MENUS; -1: exit. >>*$) 

12 format(5x, ’Change Dimensions of the Stiffen ers (Y/N)? >>(N)>'$) 

13 format(5x, ’Enter XH,XB,XC,XT » ( • , AF6 . 3 , • )> 1 $ ) 

1A format ( 5x , 1 Enter XH,XB,XC >>(', 3F6 . 3 ,')>'$ ) 

15 format ( 5x i 1 Enter XH,XB >>( * , 2F6 . 3, * )> ' $) 

16 f ormat ( 5x ,' Enter XH,XB,XT >> ( ' , 3F6 . 3 , 1 )> ' $ ) 

17 format ( 5x , ' Change the Stiffener Type (Y/N)? >>(N)>*$) 

18 formatC 5x , 'Change Axial Stiffener from Type ' ,ilj* to >> '$) 

19 f ormat ( 5x , ' 1 ) B lade , 2)Close Hat, 3)I~shape, A)J~shape,', 

1 / , 5x , 1 5 ) Angle , 6)Zee, 7)Bead, 8)0pen Hat. 1 ) 

20 f ormat ( 5x Enter MATL#, THK & Angle 9 PLY # f ,I2, f > , $) 

22 format(5x , 1 Enter the number of plies >>( 1 , 12 ,')>'$ ) 

23 format(5x, 'Enter NUMBER OF PLIES for STIFF ELEM ',il, f >>'#) 

2A f ormatC 5x ,' Modify the number of above plies (Y/N)? >>(N)>'$) 

25 format( Ax, *3, 1 ,il ,' ) No. of Plies for STIF, ELEMC II ,'):'> 13) 

26 formate Ax,' Ply # Material i Thickness Angle 1 ) 

27 f ormat ( 8x ,IA,8x,I2,7x,f7 . A , 2x , f 7 .1) 


c... identify how many element for this type of stiffener ... 
1 if (MTYP .EQ. 1 .OR. MTYP .EQ. 5) then 
IP=2 

elseif (MTYP.eq.2) then 
IP= A 
else 
IP=3 
endif 

c . . 

call menu3(IP) 

c. . choose items to modify or exit this menu .. 

10 write(6,ll) 
ia( 1 )=3 
ia( 2)=0 

call NINTG(2 , ia) 

ISl=ia( 1 ) 

IS2=ia(2) 

if (IS1 ,ne. 3) go to 9 

if ( IS2 .It. 0 .or. IS2 .gt. IP) then 

write( 6 , 1 ( ' 1 Select Again, Please.")') 
go to 10 
endif 
c . 

c . . change stiffener geometry . . 


A-105 



if ( I S2 . eq . 0 ) then 


c . 
c . 

c . . 
c. 


c . 

c . . 
c . 


c . . 
c. . . 
c. . 
500 


change stiffener type ? . . 

wri te( 6 , 17 ) 
ans= , N' 

call STITLE(ans) 

if Cans .eq. *Y* .or. ans . eq . *y f ) go to 500 

change stiffener dimensions ? . . 

wri te( 6 , 12 ) 
ans='N f 

call STITLECans) 

if (ans .eq. , N I .or. ans .eq. *n f ) then 
go to 1 
else 

if (MTYP .EQ. 5 .or. HTYP . eq . 7) THEN 
writeC 6 , 15 ) XH,XB 
call NREAL(2,XH,XB) 
elseif (MTYP . eq . 6) then 
writeC 6,16) XH,XB,XT 
call NREAL ( 3 , XH , XB , XT ) 
elseif (MTYP .eq. 1) then 
writeC 6 , 14 ) XH,XB,XC 
call NREAL ( 3 , XH , XB , XC) 
else 

writeC 6 ,13) XH,XB,XC,XT 
call NREAL ( 4 , XH , XB , XC , XT ) 
endif 
go to 1 
endif 

change stif fener type 

call NEWPAGE 
ia( 1 ) =MTYP 
writeC 6 , 19 ) 
write(6,18) ia(l) 
call NINTGC 1 ,ia) 

MTYP=ia( 1 ) 
ra( 1 ) =XH 
ra(J2)=XB ! 
ra( 3)=XC 
ra( 4 )=XT 

if (MTYP.eq.l) then 

write(6, , ( tf Enter dimensions XH, XB, XC >> ,f $) 1 ) 
call NREALC3 , ra) 

XH=ra( 1 ) 

XB=ra(2) 

XC=ra( 3 ) 

elseif (MTYP. eq. 5. or. MTYP. eq. 7) then 

writeC 6 , f ( f * Enter dimensions XH, XB »■»$)*) 
call NREAL(2,ra) 

XH=ra( 1 ) 

XB=ra(2) 

elseif (MTYP.eq.6) then 

writeC 6 , * ( 1 f Enter dimensions XH, XB, XT »»»$)•) 

call NREAL(3,ra) A-106 


c . . 
c . . 


502 


503 

501 

c . . . 


XH=ra( 1 ) 

XB = raC 2 ) 

XT=raC 3 ) 
else 

writeC 6 < ' ( ' ’ Enter dimensions XH, XB, XC, XT »••$)•) 
call NREALCA.ra) 

XH=raC 1 ) 

XB=ra(2) 

XC=ra(3) 

XT = ra C 4 ) 
endif 

if (MTYP .eq. 1 .or. MTYP .eq. 5) then 
ip = 2 

elseif C mtyp .eq. 2) then 
ip = 4 
else 

ip = 3 
endif 

do 501 i»l,IP 
wri te( 6 ,23)1 
call NINTGC 1 , ia) 

MLAYCi )=iaCl ) 

«/u^..*w! e(6 ' (2X, " Are 311 information the same for ALL plies (Y 
*/N) ? 1 1 $ ) f ) 

call STITLE(ans) 

if C ans .eq. *Y f .or. ans .eq. *y f ) then 
J = 1 

writeC 6 , 20 ) J 
call NREALC3 , ra) 
ia(l) = intCra(l)) 
msC 1 , i ) =ia( 1 ) 
tsC 1 , i ) =ra( 2) 
psC 1 , i ) =ra( 3 ) 
do 502 k=2, MLAYCi) 
msCk , i)=ms( 1 , i ) 
ts(k , i )=tsC 1 , i ) 
ps(k , i )=ps( 1 ,i) 
continue 
else 

^do 503 J=l, MLAYCi) 
iaC 1 ) =MSC J , i ) 
raC2)=TSC j ,i) 
raC 3)=PSC j , i ) 
writeC 6 , 20 ) J 
call NREALC 3 , ra) 
iaCl) = intCraCl)) 

MSC j, i)=iaC 1) 

TSC j , i ) = raC 2) 

PSC j,i)=raC3) 
continue 
endif 
continue 
go to 1 
endif 

modify STIFF ELEM only . . . 
call NEWPAGE 

write(6,25) is2,is2,MLAY(is2> 
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writeC 6 , 26 ) 

do 601 j=l ,MLAYCis2) 

writeC6,27) j ,MS( j , is2) ,TSC j , is2) ,PS( j , is2> 

601 continue 

writeC6, ' C8x, ' '00 No Change")') 
writeC6,*)' ' 
writeC6 ,24) 
ans='N' 

call STITLE(ans) 
writeC6,*)' ' 

if Cans . eq . 'N* .or. ans .eq. ’n') then 

writeC6.'C5x,' , Choose the PLY NUMBER you wish to change »' $) 

*' ) 

call NINTGC 1 ,k) 

if ( k .eq. 0 ) go to 1 

write(6,20) k 

call NREAL(3,ra) 


ia(l) = intCra(l)) 
MSCk,is2)=iaCl) 
TSCk , is2)=ra(2) 
PSCk,is2)=raC3) 


c 


go to 1 
else 

writeC 6 , 23) is2 

call NINTGC 1 , MLAYC is2) ) 


writeC 6 i*) 1 
writeC 6 . * C 2x # f f Are 


all -i n'fnrma+i on the same for ALL plies 


/ W /U\ 


*?■•$)■) 

call STITLECans) 

if C ans .eq. •Y* .or. ans .eq. V ) then 
i = l 

writeC 6 , 20 ) J 
call NREALC3,ra) 


iaCl) = intCraCD) 

HSC 1 i is2)=iaC 1 ) 
tsCl ,is2)=raC2) 
psC 1 f is2 ) =raC 3 ) 

do 602 kg=2 jMLAYC is2) 

HmsCkg,is2)=msCl /is2) 
tsCkg,is2)=ts( 1 *is2) 
psCkg , is2)=psC 1 , is2 ) 
602 continue 

else 

do 603 1=1 , MLAYC is2) 
writeC6,20) I 
call NREALC3#ra) 


c 

iaCl) = int(raCl)) 
HSC i > is2)-iaC 1 ) 
TSCi ,is2)=raC2) 

PSC i , is2)=raC3) 
c 

603 continue 1 
endif 
go to 1 
endif 
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c 


9 


continue 

return 

end 


c . . . 
c 


SUBROUTINE fmod4( IS1 , IS2) 

common /mesh/ M, N.MI , NI , AX, BY , R, A( 1 0) , B( 10 ) ,NGRID 

common /matl/ NMAT,E1 (3, 10, 5) , VI (3, 10 , 5) ,G1 (3, 10, 5) , AH 3 . 10 , 5) 

1 SS(12,10,5),NT(10), NAME 

common /wall/ NlAY, MW( 30 ) , TW( 30 ) , PW( 30 ) 

common /secb/ MTYP , XH,XB ,XC,XT ,MLAY( A) ,MS( 30 ,<♦) ,TS(30 , A) ,PSC30 <4) 
common /load/ LARG, LEND , LRIB , LRBC , LEBC, LSBC,LTOT,FL< A) , 

1 LBC11 ,LBC12,LBC13,LBC1<4 

common /solve/ NBUC , TAR , NDF , ND , MO 
dimension ra( 10 ) , ia( 1 0 ) , NAMEC 1 0 ) 
character ansXl , NAME *80 , type*15 
cXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXX 
c FORMAT STATEMENTS FOR LISTING 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21 format(2x, 'Should it represent a part of a much larger* 

1* panel ?( Y/N)>>( N)> ' $ ) 

format(2x, 'Are there ribs at Ends ?(Y/N)>>(Y)> •$) 
format(2x, 'Ribs on:(l)Skin (2)STIF (3)Both ?»(1)>»$) 
format(2x, 'Choose a B.C. Type no. at Ribs:* 

1/1 Ox, ' ( 1 ) Simply Supported; (2) S. S. with Rotation;*, 

2 * ?>>(1)>'$) 

format ( 2x ,* Choose a B.C. type no. at z = 0:*, 

*/10x,*(l) Simply Supported', 

*/10x,*(2) S.S. and Rotation', 

l/10x,'(3) Free >>(1)>'$) 

f ormat ( 2x ,' Choose a B.C. type no. at z — L:', 

*/10x , ' ( 1 ) Simply Supported*, 

X/lOx, ' (2) S.S. and Rotation *, 

l/10x,'(3) Free >>(1)>'$) 

format(2x, 'Choose a B.C. type no. at theta = 0:*, 

*/10x,'(l) Simply Supported', 

*/10x, * (2) S.S. and Rotation *, 
l/10x,'(3) Free >>(1)>'$) 

*/io ma wf%' ' C h° ose a BC - t YP® no. at theta = theta_max:*, 

*/10x, (I) Simply Supported 1 , 

*/10x, f (2) S.S. and Rotation 

l/10x, f -(3) Free >>(!)>•$) 

formate2x, 1 Loading Condition Definition •) 

format(2x, ’Choose input loads type ( Total=l , Line=2) f 
c f ?>>(2)> •$) # 


22 

23 

24 


25 


26 


27 


28 


30 

31 


32 f ormatC 5x , 1 fol lowing total load unit : lb 1 ) 

33 format(5x, 'following line load unit: lb/in') 

34 formatC7x, 'Input axial load >>( * , FI 0 . 1 ,*)>•$ ) 

35 format(7x, 'Input lateral load >>( 1 , FI 0 . 1 , 1 ) > f $ ) 

36 formate 7x, f Input shear load along ends >>( 1 ,F10. 1 , • )> f $) 

37 f ormat( 7x , f Input lateral pressure in psi >> 1 , F10 . 1 , * )> •$) 

38 f ormat ( 7x , 1 4,9)Axial = •jflQ.l) 

39 format(7x, f 4,10)Lateral = f ,fl0.1) 

40 format(7x,* 4,ll)Shear Along the Ends = *,fl0 1) 

*1 f °rmat(7x,' 4,12)Lateral Pressure (psi.)* • ,fi 0 i> 

* 2 formate 2x , 1 --- Solution Technique — •) 

43 *'TARGET- ^'flO P 5)° F > ’ ' al5 ' i2 ' lx ^ ’NODE*’ ,i3,lx, 

44 format (5x, 'TYPE OF TARGET > # ,al5, lx, f TARGET= 1 ,fl0.5) 


A- 109 


10 


')») 


c************* 
c************* 

50 call NEWPAGE ^ ^ . 

write^.'C' 1 Boundary Condition Definition 

if ( LEND . eq . 1 ) then 

writeC 6 , ’ C ’ * A,l)There ARE ribs on the ends. ) ) 
else 

write(6 , ' ( ' * A,l)There are NO ribs on the ends. ,, ) , ) 
endif 

if (LRIB.eq.l) then 

writeC 6 , ' ( ’ ' A,2)Ribs on the Skin.")’) 
elseif (LRIB.eq.2) then 
write(6, , (" A,2)Ribs on the Stif fener . ' * ) ' ) 
elseif (LRIB.eq.3) then 

write(6 J , ('' A,2)Ribs on both the Skin and the Stiffener. J J 
endif 

if ( LRBC .eq. 1) then . . nc . 

write( 6 , ' ( ' ' A,3)Ribs are simulated using Simple Support Constr 

Xaints . 1 1 ) ’ ) 

elseif (LRBC .eq. 2) then 

write^.'C'' A,3)Ribs are simulated using Simple Support plus 
Xotational Constraints . 1 ')' ) 
endif 


ifClbcll .eq.l) then 

write( 6 , ' ( ' ' A, A) Simply Supported at z=0 ) ) 

elseif ( lbcl 1 . eq . 2) then _ . 

writeC 6,'(" A, A) Simply Supported and Rotation at z-U ) ) 

elseif ( lbcll . eq . 3) then 

writeC 6 , ' ( ' * A, A) free at z=0")') 
endif 

if (lbcl2.eq.l) then 

write(6, , ( ,, 4,5) Simply Supported at z=L ) ) 

elseif ( lbcl2 . eq . 2) then , _ . 

writeC 6 , * ( ' * A, 5) Simply Supported and Rotation at z-L ) > 

elseif ( lbcl 2 . eq . 3) then 

writeC 6 , ' ( ' * A, 5) free at 2=1")') 
endif 

if Clbcl3.eq.l) then 

writeC 6,' C" A, 6) Simply Suported at theta=0 ) ) 
elseif-( lbcl3 . eq . 2) then 

writeC6 , * C ' * A, 6) Simply Supported and Rotation 

S at theta=0 ' * ) * ) 
elseif ( lbcl3 . eq . 3) then 

write(6 , ' ( * * A, 6) free at theta'D**)') 

endif 


if ClbclA.eq.l) then 

writeC 6 , * ( ' ’ A, 7) Simply Supported theta=theta_max ) > 
elseif ( lbcl A . eq . 2) then 

writeC 6 , • < • ' A, 7) Simply Supported and Rotation 
g at theta=theta_max ' ' ) ' ) 
elseif ( lbclA . eq . 3) then 

writeC 6,' (” A, 7) free at theta=theta_max* ' ) * ) 

endif 


write(6 , '(" 


. .)•) 
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write(6 ,30) 
if (LTOT.eq.l) then 

wri te( 6 , ' C 7x , f 1 4,8)Total Loads Clbs.): ,, ) , ) 
else 

writeC 6 , 1 ( 7x , ' ' 4,8)Line Loads ( lbs in .):•') f ) 
endif 

writeC6,38)FLCl) 
wri te( 6 ,39)FLC2] 
writeC6,40)FLC3) 
writeC6,41)FLC4) 
wri te( 6 ,42) 
if (NBUC.eq.l) then 

wri teC 6 , 1 C 7x , ' 1 4,13) Linear Analysis . ,f ) 1 ) 
elseif CNBUC.eq.2) then 

writeC 6 , 1 C 7x , 1 1 4,13) Bifurcation Buckling Analysis . ■ *) 9 ) 
writeC 6, • (16x,i3, * • Mode(s) . 1 1 ) • )M0 
elseif CNBUC.eq.3) then 

wr i te C 6 , 1 C 7x , 1 1 4,13) Post* Buckling Analysis . 1 9 ) f ) 
if (NDF.gt.O) then 
TYPE= 'DIS . DOF • 
write(6 , 43) TYPE , NDF , ND , TAR 
else 

TYPE= • LOAD FACTOR ■ 
wri te( 6 , 44 ) TYPE, TAR 
endif 
endif 

cXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
c FORMAT STATEMENTS FOR MODIFICATION 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

wri te< 6 , 9 C f 1 . } } 

writeC 6, * C ' * Select m,n=> -l:Exit; 9:Quit; m,n: Other Menu or Upda 
*te. >>"$)•) 
ia( 1 ) = 0 
ia( 2) =0 

call NINTGC 2 , ia) 

ISl=ia( 1 ) 

IS2=ia( 2) 

if (ISl.ne.4) then 
go to 999 
else 

if (IS2.eq.l) then 
writeC 6 , 22) 
x:all STITLE(ans) 

if (ans.eq.'NVor.ans.eq.'n 1 ) then 
LEND=2 
else 

LEND=1 
endif 1 

elseif (IS2.eq.2) then 
wri te( 6 , 23) 
call NINTGC 1 , LRIB) 
elseif CIS2 .eq. 3) then 
writeC6 ,24) 
call NINTGC 1 , LRBC) 
elseif CIS2.eq.4) then 
writeC 6 , 25) 
call NINTGC 1 , LBC1 1 ) 
elseif CIS2.eq.5) then 
writeC6,26) 
call NINTGC 1 , LBC12) 
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elseif ( I S2 . eq . 6 ) then 
wri te(6 , 27 ) 
call NINTGC 1 , LBC13 ) 
elseif ( I S2 . eq . 7 ) then 
wri te( 6 , 28 ) 
call NINTGC 1 , LBC14 ) 

c ... 

c . modify loading conditions 
c ... 

elseif (IS2.eq.8) then 
wri te( 6 ,31 ) 
call NINTGC 1 , LTOT) 
elseif C IS2 . eq . 9 ) then 
writeC6,34)FLCl) 
call NREAL C 1 ,ra) 

FL C 1 ) = raC 1 ) 

elseif CIS2.eq.10) then 
writeC6,35)FLC2) 
call NREALC 1 ,ra) 

FL C 2 ) = raC 1 ) 

elseif ( IS2 . eq . 1 1 ) then 
writeC6,36)FLC3) 
call NREAL C 1 , ra) 

FL C 3 ) =raC 1 ) 

elseif C 1 52 . eq .12) then 
writeC6,37)FLC4) 
call NREAL C 1 , ra) 

FL C A ) = raC 1 ) 

elseif CIS2.eq.13) then 

writeC 6,* C* 1 Choose ONE of the following technique >> ,t ) 1 ) 

writeC6, , C fl 1> Linear Solution . 1 •)* ) 

writeC 6 , 1 C f * 2> Bifurcation Buckling Analysis . 1 1 ) 1 ) 

writeC 6 , * C 1 1 3> Post- Buckling Analysis .*■) f ) 

writeC 6 , 1 C 1 1 Enter>> 1 • $ ) f ) 

call NINTGC 1 , NBUC) 

if CNBUC.eq.3) then 

writeC6, , C ,, Type of Target -- 0) Load Factor. 1 •)•) 
writeC 6 , 1 C f • 1-6) Displace. DOF . * 1 ) 9 ) 

writeC 6 , 1 C 1 1 Enter » ,f $) f ) 

call NINTGC 1 ,NDF) 
if CNDF.gt.O) then 

writeC6, f C ,f Node Number = ,f $) 1 ) 
call NINTGC1 ,ND) 
endif 

writeC 6 , * C 1 1 Target Point = ,f $) f ) 
call NREALC 1 ,TAR) 
elseif CNBUC .eq. 2) then 

writeC6, v C vl How many MODE shape(s) do you want CMax. 50 
*)? »■'$)•) 

call NINTGC 1 ,M0) 
endif 
endif 
go to 50 
999 endif 
return 
end 

c ... 
c ... 


SUBROUTINE fsave 

common /mesh/ M , N,MI ,NI , AX, BY, R , AC 10 ) , B( 10) ,NGRID 
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common /matl/ NMAT , El (3 , 10,5) , VI (3, 10 , 5) , G1C3 , 10 . 5) , A1 (3, 10 5) 

1 SS(12,10,5),NT(10), NAME ' ' 

common /wall/ NLAY,MW(30) ,TW(30) ,PW(30) 

common /secb/ MTYP , XH , XB , XC .XT ,MLAYC A ) ,MSC30 , A) ,TS(30, A) , PS( 30 A) 
common /load/ LARG, LEND , LRIB , LRBC , LEBC, LSBC, LTOT ,FL( A) , 

1 LBC11,LBC12,LBC13,LBC1A 

common /solve/ NBUC,TAR,NDF,ND,M0 


c . save and update files 
c ... 

character NAME*80 
dimension NAME(IO) 

11 formate AI5 , 3F1 0 .A) 

12 formate 6E12 . A ) 

13 formate 15, 2F1 0 . A) 

1A f ormatefiFlO . A) 

15 formate8I5) 

16 formate Ai3,f 10 .5) 

writee 10,11) M,N,MI ,NI , AX, BY,R 
M2 = M+2 
N2 = N+2 

writee 1 0 , 1 A ) ( AC I ) , 1*1 ,M2) 
writee 1 0 , 1 A ^ e Be I) , 1 = 1 ,N2) 

c ... 

write(10,15) LEND, LRIB , LRBC, LBC11 , LBC12, LBC13, LBC1 A, LTOT 
write(10,12) ( FLC I ) , 1=1 , A) 
write(10,16> NBIIC , NDF , ND , M0 , TAR 

c ... 

write! 11,11) NMAT 
do 110 1=1, NMAT 
J=1 

write!ll, 12 ) !E1!K,I,J),K=1,3),!V1!K,I,J),K=1,3) 

writeC 11 , 12) CGI (K , I , J) ,K=1 ,3) , ! A1 (K , I , J) ,K=1 , 3) 
write(ll,12) CSS(K,I,J),K=1,6) 

110 writeC 11 , 12) CSSCK , I , J) ,K=7 , 12) 
c ... 

write! 11,11) NLAY 
do 120 1=1, NLAY 

120 write(ll,13) MW(I) ,TW(I) ,PW(I) 
writeC 11,11) MTYP 
write (11, 12) XH,XB,XC,XT 
if (MTYP . eq . 1 . or . MTYP . eq . 5) then 
IP=2 

elseif (MTYP.eq.2) then 
IP=A 
else 
IP=3 
endif 

do 130 1=1, IP 
write! 11,11) MLAY(I) 
do 130 J=1 ,MLAY( I ) 

130 write ( 11,13) MS( J, I ) ,TS( J, I ) , PS( J, I ) 

c ... 

c . DIAL L3D2 Runstreams 
c ... 

call fmesh 
call fband 
call fmatl 
call fload 
call fsolve 
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return 

end 


SUBROUTINE fband 

fband : BAND and SETUP runstreams 

open( uni t=12 , status= ' unknown • , f i le= ' tapel 2B . com' ) 
write!12, •( ’ • $band' ' ) ' ) 
write! 12, '( ' 'open 6 "band . out" ) 
write! 12, •(' ’start -1 : regps : band : stop ")*) 

write! 12 ,'!" $setup ")' ) 
write! 12, '! "open 6 "setup . out" ) 
write!12, '!' 'start : setup : stop ")') 

close! unit=12) 
return 
end 

SUBROUTINE fmatl 
MATL runstream 

common /mesh/ M , N , MI , HI , AX , BY , R , A( 1 0 ) , B( 1 0 ) , NGRID 

common /matl/ NMAT , El! 3 , 10 , 5) , VI l 3 , 10 , 5) ,G1! 3, 10 ,5) , A1 ! 3 , 10 , 5) , 

L SS!12,10,5) ,NT!10) , NAME 

common /wall/ NLAY , MW! 30 ) , TW! 30 ) , PW! 30 ) 

common /secb/ MTYP,XH,XB,XC,XT,MLAY! A) ,MS!30,A),TS!30,A) ,PS! 30, A) 
common /solve/ NBUC,TAR,NDF ,ND,M0 

CHARACTER*A0 f mtl , f mt2 , fmt3 , f mt A , f mt5 , fmt6 , fmt7 , f mt8 , f mtAa 
character NAME*80 
dimension NAME!10) 

fmtl= ' ! ' ’MAT0RT" ,I3,3ell . A,3fl0.A, ' ' >")' 

fmt2='!9X,3ell.A,3flO.A)' 

fmt3='! "ORIENT" ,13, " 0.,0.,0., 1")' 

12 3A56789 0123A56 

f mt7= ' ! ' 'MATALL" ,I3,6fll . A, ' ' >" )' 

fmt8='!9x,6fll.A)' 

fmtA='! "WALLAM" ,213, " >")’ 

fmtAa='!I3," >")' 

fmt5= ' ! 12X , F8.A," >")' 

fmt6= ' ! 12X, F8.A) ’ 

fmatl : DIAL MATL runstream 

open! unit=12 , status* 'unknown' ,file= •tapel2C' ) 
open! uni t=l 2 , status= ' unknown ' , f ile= • tape 1 2C . com' ) 
write!12, '!"#")') 

write! 12, ' ! ' 'source /sgiA23/dial/init . com' ' ) ' ) 
write!12,*! "matl « \!")’) 
write! 12 , ' ! ' ' $matl")') 
write! 12, '! "open 6 "matl . out"" )' ) 
write!12, '! "start")') 

do 25 1=1, NMAT 

write! 12,fmtl) I , !E1!K , I ,1) ,K=1 ,3) ,(V1!K,I,1) ,K— 1,3) 
write! 12, fmt2) !G1!K,I,1),K=1,3),!A1!K,I,1),I!“1,3) 
wr ite ! 12 , f mt3) I 

write! 12, fmt7) I , ! SS!K , 1,1) ,K=1 ,6) 
write! 12, f mt8 ) !SS!K,I,1),K=7,12) 

MM=10 

write! fmtA!15:16), ’!i2)') NLAY 


c 


writeC fmt5C6:7), ’Ci2)') NLAY 
c writeC fmt6C6:7), ’Ci2)’) NLAY 

writeC 12 , f mtA ) MM, NLAY 
do 26 i = l , NLAY 

writeC12,fmt4a)MWCI) 

26 continue 

do 27 i=l , NLAY 

writeC12,fmt5)TWCI) 

27 continue 

do 28 i= 1 , NL AY- 1 

write(12,fmt5)PW(I) 

28 continue 

writeC 1 2, fmt6)PW( NLAY) 

c ... 

if (MTYP.eq.l .or .MTYP.eq.5) then 
IP = 2 

elseif (MTYP.eq.2) then 
IP = 4 
else 
IP=3 
endif 

do 30 1=1 , IP 
MM= 10 + I 

writeC 12 , f mtA ) MM , MLAYC I ) 
do 31 j=l , MLAYC I ) 

writeC 1 2, fmt4a)M$C J,I) 

31 continue 

do 32 j=l , MLAYC I ) 

writeC 12 , f mt5)TSC J , I ) 

32 continue 

do 33 j=l ,MLAYCI)-1 

writeC12,fmt5)PSC J,I) 

33 continue 

writeC 12,fmt6)PSC MLAYC I) ,1) 

30 continue 
c ... 

writeC 1 2 , 1 C 1 1 matl : stop 1 ') 1 ) 

c ... 

closeC unit = 12) 

return 

end 

SUBROUTINE fload 

c . . . 

c . LOAD runstream 

c ... 

common /mesh/ M, N , MI , NI , AX , BY, R , AC 1 0 ) , BC 1 0 ) , NGRID 

common /matl/ NMAT , El C 3 , 10 , 5) , VI C 3 , 1 0 , 5) , G1 C 3, 10 , 5) , Al< 3 , 10 , 5 ) , 

1 SSC12,10,5) , NTC 1 0 ) , NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB , XC , XT , MLAYC A ) ,MSC 30 , A ) ,TS( 30 , A) , PSC 30 , A) 
common /load/ LARG , LEND , LRIB , LRBC , LEBC , LSBC ,LT0T ,FL( A) > 

1 LBC11,LBC12,LBC13,LBC14 

common /solve/ NBUC , TAR , NDF , ND , MO 

c ... 

c . fload : DIAL LOAD runstream 

c ... 

dimension NAMEC10) 
character NAMEX80 
real tempC6) 

openC unit=12 , status 5 ’unknown 1 , f ile= 1 tape 1 2D* ) 


C 
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open( uni t = l 2 , status= 1 unknown 1 ,f ile= * tape!2D . com' ) 
write (12, ' ( ' ' # 1 1 ) 1 ) 

write(12, ' ( ' 'source /sgi423/dial/init.com' f ) ') 
write ( 1 2 , f ( " load << \!")') 
write( 12 , f C " $load ,, ) , ) 
writeC12, '( "open 6 "load . out” ")' ) 
writeC 12 , 1 ( f 1 start")') 


c ... 

RPdel = R + .1 
RMdel = R - .1 

writeC 12 ,'( 1 1 mset 11 copy nset = ll") f ) 
writeC 12 , 1 C 1 1 mset 11 mask type msh")*) 

writeC 12 # 1 ( 1 1 mset 11 mask volu " ,f 8 . 4 , lx , f8 . 4 ■ » -180. 180. 
& -999. +999. 1")') RMdel, RPdel 
writeC 12 ,'(' 1 mset 12 copy nset = 12") f ) 
writeC 12,' (" mset 12 mask type msh f ')') 

write(12, , (" mset 12 mask volu " , f 8 . 4 , lx , f 8 . 4 f 9 -180. 180. 
& -999. +999. 1")') RMdel, RPdel 
writeC 12, 1 C * 9 mset 13 copy nset = 13") , > 

C 9/10/91, inserted 1 line as follows, per Tony Wei 
writeC 12 ,'(• • mset 13 mask type msh") 1 ) 
writeC12, f (" mset 14 copy nset^^")') 

C 9/10/91, inserted 1 line as follows, per Tony Wei 
writeC 12,' C" mset 14 mask type msh")') 
writeC 12, * C 9 9 mset 15 copy type^sh") 1 ) 

writeC 12 , ' C " mset 15 mask volu " , f8 . 4 , lx , f 8 . 4 " -180. 180. 
8 -999. +999. 1")') RMdel, RPdel 
tempC 1 ) = FL( 1 ) 
tempC 2) =FL ( 2 ) 
tempC 3 ) = FL ( 3 ) 
tempC 4 ) = FL ( 4 ) 

c temp(5)=fl(3)/2. 

c tempC 6 )= tempC 5)*(by/ax) 

if CLTOT .eq. 1) then 
tempC l)=t*mp( 1)/AX 
tempC 2 ) = t^mp( 2)/BY 
temp(3)=temp( 3)/AX 
tmp=temp( 3)/BY 
c tempC 5)=flC3)/2 . 

c temp (6 )=temp(5)*(by/ax) 

endif 

if CLTOT .eq. 2) then 
tmp= tempC 3) 
endif 


write (12, 

’( " 

lease 

1")') 




writeC 12, 

•( " 

pline 

• 1 ,f 10 . 2, 

•Ml 

, 0,4 mset s ll * * ) 1 ) 

-tempC 1 ) 

writeC 12 , 

•C " 

pline 

",fl0.2. 

",11 

, 0,2 mset=12* • ) ' ) 

tempC 1 ) 

writeC 12 , 

•C " 

pline 

• 1 , f 10 . 2 , 

".2, 

0,1 mset=13 f, ) f ) 

tempC 2) 

writeC 12 , 

■C" 

pline 

" , f 1 0 . 2 , 

"i2, 

0,3 mset=14") 1 ) 

tempC 2) 

writeC 12 , 

■C" 

pline 

",f!0.2. 

•’,3, 

0,4 msetsll" ) f ) 

tempC 3) 

writeC 12 , 

f C " 

pline 

" ,f 10 . 2 , 

",3, 

0,2 mset=12 • * ) 1 ) 

tempC 3) 

writeC 12 , 

»C " 

pline 

" , f 1 0 . 2 , 

••.3, 

0,1 mset=13") f ) 

- tmp 

writeC 12 , 

f ( 1 1 

pline 

" ,fl0.2. 

"i3, 

0,3 mset s 14 1 • ) 1 ) 

- tmp 

writeC 12 , 

'( l. 

psurf 

* ' , f 1 0 . 2 , 

•M, 

0,mset=15") f ) -FLC4) 


c 

c p force cards apply concentrated loads to the panel corners 
c 

c writeC 12, f ( ' * p " ,f 10 . 2, 1 » ,2 , node=l , 17 • 1 ) * ) tempCS) 

c writeC 12 , ' C * * p",fl0.2,",l, node=l")*) tempC6) 

c writeC 12, ' C 1 1 p * * ,f 10 . 2, 1 1 , 1 , node=17")*) -tempC6) 
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c write( 12, •( ' ' p " ,f 10 . 2, • • ,2 , node=173’ ' ) • ) -temp(5) 

c ... 

wri teC 12 , 1 C 1 1 load : stop 11 )') 
c writeC12, f ( 1 1 ! f •)■) 

c ... 

closeC uni t = 12) 

return 

end 

SUBROUTINE fsolve 

c ... 

c . SOLVE runstream 
c ... 

common /mesh/ M,N,MI ,NI ,AX,BY,R,AC10) , B(10) ,NGRID 

common /matl/ NMAT , El ( 3 , 1 0 , 5 ) , VI ( 3 , 1 0 , 5) , G1 C 3 , 1 0 , 5) , A1 ( 3 , 1 0 , 5 ) , 

1 SSC12,10,5),NTC10) , NAME 

common /wall/ NLAY , MWC 30 ) , TW( 30 ) , PWC 30 ) 

common /secb/ MTYP , XH , XB,XC,XT , MLAYC4),MSC30,4),TSC30,A),PSC30,4) 
common /load/ LARG , LEND , LRIB , LRBC , LEBC , LSBC , LTOT , FL( A) , 

1 LBC11,LBC12,LBC13,LBC1A 

common /solve/ NBUC , TAR , NDF , ND , MO 
dimension NAME(IO) 
character NAHE*80 

c ... 

c . fsolve : DIAL SOLVE runstream 

c ... 

100 formate 1 loads f ,i2,fl2.4) 

C openC unit= 12 , status= 1 unknown 1 , f ile= 1 tapel2E 1 ) 

open ( uni t= 12 , status= 1 unknown 1 , f ile= 1 tape!2E . com 1 ) 
c writeC 12, 1 ( 1 •#• 1 ) ') 

c writeC 12 , 1 C 1 1 source /usr/local/dial/ini t . com 1 1 ) 1 ) 

if (NBUC.eq.2) then 

c writeC 12 , 1 C 1 1 solve << \ * 1 1 ) 1 ) 

writeC 12 , 1 ( 1 1 $ assign [ e565678 . curve] fil002 fil002 ,, ) 1 ) 
write C 1 2 , 1 C 1 ’Ssolvedp 1 1 ) 1 ) 
writeC 12 , 1 C 1 1 open 6 "solve . out" 1 1 ) 1 ) 
wri teC 12 , 1 C 1 1 start 11 ) 1 ) 
writeC 12 , 1 C 1 1 ASSIGN IMPR = 1 11 ) 1 ) 
write 02, 100)1,1. 
writeC 12 , 1 C 1 1 SAVE.D 11 ) 1 ) 
writeC 12 , 1 C 1 1 SAVE , S 1 1 ) 1 ) 
writeC 12 , 1 C 1 1 nprint , D 1 1 ) 1 ) 
writeC 12 , 1 C 1 1 eprint , S 1 1 ) 1 ) 
writeC 12 / 1 C 1 1 EIGEN 2 11 ) 1 ) 
writeC 12, 1 C 1 1 solve 11 ) 1 ) 
writeC 12, 1 C 1 1 stop 11 ) 1 ) 
c writeC 12 , 1 C 1 1 ! 1 1 ) 1 ) 

c writeC12, f C 1 1 cluster << X! 11 ) 1 ) 

writeC 12 , 1 C 1 1 $clusterdp 1 1 ) 1 ) 
wri te C 1 2 , 1 C 1 1 open 6 "cluster . out" 1 1 ) 1 ) 
write C 1 2 , 1 C 1 1 start 11 ) 1 ) 
writeC 12, 1 C 1 1 assign mxit^SO 11 ) 1 ) 
writeC 12 , 1 C 1 1 shift ",i3) f )M0 
writeC 12 , 1 C 1 1 save 11 ) 1 ) 
writeC 12 , 1 C 1 1 matrix : file ,ki ki 11 ) 1 ) 
writeC 12 , 1 C 1 1 clust 2 11 ) 1 ) 
write C 12 , 1 C 1 1 stop 11 ) 1 ) 
c writeC 12 , 1 C 1 1 ! 1 1 ) 1 ) 

elseif C NBUC . eq . 1 ) then 
c writeC12, f C 1 1 solve << X? 11 ) 1 ) 

writeC 12, 1 C 1 1 $assign [e565678 . curvelf il002 fil002 ,l ) , ) 
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wri teC 12 , 
writeC 1 2 , 
writeC 12 , 
writeC 12 , 


writeC 12/100)1,1 


writeC 1 2 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 


elseifCNBUC.eq. 3) then 


C ' 1 $sol vedp 1 * ) 1 ) 

C ,f open 6 "sol ve . out” 1 1 ) 1 ) 
C" start")') 

C" ASSIGN IMPR = 1 1 1 ) ' ) 


C ,f SAVE , D * ' ) ' ) 
C ,f SAVE , S * 1 ) 1 ) 

C 1 • nprint , D ' 1 ) ' ) 
C 1 * eprint , S ' ' ) * ) 
C ■ » solve" )' ) 

C" stop")') 
«(•»!•«)•) 


solve « \ ! 1 ' ) ' ) 


^assign Ce565678 . curve]f il002 fil002 ,, ) , ) 
$solvedp " ) 1 ) 
open 6 "solve . out" ")* ) 
start - 1 * ' ) 1 ) 

ASSIGN IMPR = 1 ' ' ) • ) 
static 2 ' ' ) ' ) 
branch Oil") 1 ) 
loads 1 1. 1. I.")') 
limit load")') 


•C" Target ",fl2.5," Node= • • ,2i4> ■ )TAR , NDF ,ND 
•(■» Target ",fl2.5) f )TAR 


save , d ' ' ) * ) 
save , s' 1 ) 1 ) 

assign slf=0.5, relr=0.02, stol=0.25, gtol = 0.25" 

solve 1")') 
stop 1 1 ) 1 ) 


write C 12 
writeC 1 2 , 
writeC 12, 
write 0 2, 
write C 12 , 
writeC 12, 
writeC 1 2 , 
writeC 12, 
write C 12 , 
writeC 12 , 
if CNF.ge.l) then 
writeC 12 
else 

wri teC 1 2 
endif 

writeC 1 2 , ' C 
writeC 12 , ' C 
writeC 12 , ' C 

*)') 

writeC 12 , ' C 
writeC 12 , ' C 
writeC 12 , ' C ' ' ! f, ) f ) 
endif 

closeC unit = 12) 

return 

end 

SUBROUTINE fmesh 
MESH runstream 

common /mesh/ M, N ,MI , NI , AX , BY, R , A( 10 ) , B< 1 0 ) , NGRID 

common /matl/ NMAT , El C 3 , 10 , 5) , VI C 3, 10 , 5) ,G1C 3 , 10 , 5) , A1 ( 3 , 1 0 , 5) , 

1 SS(12,10,5),NTC10), NAME 

common /wall/ NLAY , MWC 30 ) , TWC 30 ) , PW( 30 ) 

common /secb/ MTYP ,XH,XB ,XC,XT ,MLAY( A) ,MS(30,A) ,TS(30, A) ,PSC30,4) 
common /load/ LARG,LEND, LRIB, LRBC, LEBC, LSBC,LT0T,FL( A) , 

1 LBC11 , LBC12,LBC13,LBC14 

common /solve/ NBUC , TAR , NDF ,ND,M0 
CHARACTER*60 fmtl ,fmt2, fmt3,fmt<* , fmt5,fmt6 ,fmt6b 
CHARACTERS 0 fmt7 ,f mt8 ,fmt9 ,fmt0 ,fmta,fmtb,f mtc,fmtz ,fmty ,fmtz2 
CHARACTERS0 fmtd 
character NAME*80 
dimension NAMEC10) 

VARIABLE DEFINITION TABLE 


c 


M 
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f rati = '( ' ' I JPOINT ' ' ,3I3,3flO.A, ' * 1 " ) » 

fmt2= ' ( ' • ' ' ,3I3,3fl0.A, • ' 1”)' 

fmt3= * C ' ' SLINE ' ' ,613)' 

fmta= '(' •CIRCLE' 313) ’ 

fmtA=*( "KNAME 0 0 ",2I3," kp'Ml)' 

f mt5= ' ( • 'IJSHELL* • ,213 , Af 10 . A, 13 , * • MSH , 1 , - 1 , 0 , 0 , BASE • * ) • 
fmtb=*("MSET 10, COPY,NAME=BASE* • ) 1 
fmt6= * ( " IJSHELL ' • ,213, Af 10. A, 13, • • MSH, 1 , -1 ,0,0 • • ) • 
fmt6b='( "IJSHELL" , 213 , Af 1 0 . A, 13 , • • MSH, 1 , -2,0, 0 " ) • 
fmt7='( "PRISM' * , 13, 3f 10 . 4) * 
fmt8=*( * 'ROTATE* ' ,flO. A, * * 1")* 
c fmt9='( "KNAME 0 0 *',213, " kb", ID' 

frat9=*( "KNAME ",AI3," kb", ID* 

fmtO=*C "ELTNAME STF" ,11, • • ,STIF, , , ,MESH=XIPP( 9) " ) » 

f mtc= ' ( * ’MSET" ,13, ' • , COPY , ANAME=STF " ,11) * 

fmtz=*( "IJSHELL* * ,2I3,Afl0. A, 13, * * MSH, 1 , - 1 , 0 , 0 ,part * * ) • 

fmtz2=*( "IJSHELL", 2I3,Af 10. A,I3, * * MSH , 1 , -2, 0 , 0 .part * • ) * 

fmty= * ( * ' BCSYS *',3I3,fl0.A," l.e+9,nset= ")• 

fratd= * ( " DEFSYS 1 1 0.,0.,0. 0.,0.,-l. 0.,1.,-1. ")• 

c ... 

c fmesh : DIAL MESH runstream 

c ... 

C open( unit 2 12 , status 2 1 unknown * , f i le 2 ' tapel2A . • ) 

openC uni t = l 2 , status 2 'unknown* , file 2 * tapel2A. com 1 ) 
c wri te (12, 

c writeC 12 ,'(•' source /sgi423/dial/init . com 1 * ) * ) 

c writeC 12 , 1 ( * * mesh << \!»*)*) 

writeC 12 , 1 ( 1 * $mesh **)•) 
wri te( 12 , 1 ( * * open 6 f, mesh . out” * * ) * ) 
write(12, •(• 'clear -1")') 
writeC 12 , ' ( * ' el type 4,2,6")') 
wri te( 12 , ' ( * ' set syntax on")*) 

write(12, '(' 'assign IPNO=0 IPLC=0 IPEL=0 IPC0=0 TOLX=.01 ")') 
wri te( 12 , ’ ( * 1 # MESH Number 1, base panel • •)■) 

c ... 
c 

c system definition for cylindrical coor system 

c 

wri te( 12 , f mtd) 
c 

J0 = 1 
IP1 2 1 
JA1=1 - 
XA1=0 . 

writeC 12, fmtl) IP1 , JA1 , JO , R , XA1 , 0 . 

IP=2+5*M 

JA=1+8*M+2*MT*(M+1 ) 

XA=AX 

TH=(XA/R)*lS0./3. 1415927 

writeC 12,fmt2) IP , JA , JO , R , TH , 0 . 

do 10 L=1 , M 

IP6=5*L+1 

IP5=5*L 

IP4=5*L - 1 

IP3=5*L-2 

IP2=5*L-3 

JA6=1+2*(MI+4)*L 

JA5=l+2*(MI+4)*L-2 

JA4=l+2*(MI+4)*L-4 

JA3=l+2*(MI+4)*L-6 
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JA2=l+2*(MI+4)*L-8 

if (MTYP . eq . 2 . or .MTYP . eq . 8) then 

c... Global Y coor. for stiff. 2, or 8 

XA6 = A( l + D+XB/2. 

XA5=A( 1+L )+XC/2 . 

XA4=A( 1+L ) 

XA3=A( 1+L ) “XC/2 . 

XA2=A( 1+L ) “XB/2 . 

elseif (MTYP. eq. 5. or .MTYP. eq. 6) then 

c... Global Y coor. for stiff. 5, or 6 

XA6 = A( l + D+XB/2 . 

XA5=A( 1+L )+XB/ A . 

XA4=A( 1+L ) 

XA3=A( 1+L ) “XB/4 . 

XA2=A( 1+L ) -XB/2 . 
elseif (MTYP.eq.7) then 

c... Global Y coor. for stiff. 7 

XA6=A( 1+L )+XB/2 . 

XA5=A( 1+L )+XH 
XA4=A( 1+L ) 

XA3=A( 1+L ) “XH 
XA2=A( 1+L ) “XB/2 . 
else 

c... Global Y coor. for stiff. 1,2, or 3, A, 6 
XA6=A( 1+L )+XB- XC 
XA5 = A( 1 + L ) + ( XB-XO/2 . 

XA4=A( 1+L ) 

XA3=A( 1+L ) -XC/2 . 

XA2 S A( 1+L ) -XC 
endif 


c 

c 

c 


10 


Conversion to cylindrical coordinates 


TH2 * ( XA2/R)*18Q . /3 . 1415927 
TH3 = (XA3/R)*180 ./3 . 1415927 
TH4 = (XA4/R)*18Q./3. 1415927 
TH5 = (XA5/R)*180./3. 1415927 
TH6 = ( XA6/R)*180 . /3 . 1415927 
writeC 12 , f mt2) IP2 , JA2 , JO , R , TH2 , 0 . 
wri te( 12 ,f mt2) IP3 , JA3 , JO , R , TH3 , 0 . 

writeC 12, fmt2) IP4 , JA4 , JO , R , TH4 , 0 . 
writeC 12,fmt2) IPS , JA5 , JO , R , TH5 , 0 . 
wr i te Cl 2 , f mt2 ) I P6 , JA6 , JO , R , TH6 , 0 . 
Icenter=IP+l 

write( 12 , f mt2) I center ,0,0,0. ,0. ,0. 


LI = 1 
L2 = 2 
L3 = 3 
L4=4 

wri te( 12 , f mta) LI , L2 , Icenter 

L1=M*5~1 

L2=M*5 

L3=M*5+1 

L4=M*5+2 

writeC 12 , f mta) L3, L4 , Icenter 

do 20 L-l ,M-1 

L1=L*5-1 

L2=L*5 

L3-L*5+l 


A- 120 


L4=L*5+2 

L5=L*5+3 

L6=L*5+4 

20 wri te( 1 2 , f mta ) L3 , L4 , Icenter 
L0 = 1 

L9=M*5+2 

T9=0 

do 25 L=1,NLAY 

25 T9=T9+TW( L ) 

W9 = 0 . 

M9 = 10 

c ... 

il = l 
i2=2 

do 26 i=l,M+l 

wri te( 12 , fmt5) i 1 , i 2 , T 9 , T 9 , W9 , W9 , M9 

il=il+5 

12=12+5 

26 continue 
c ... 

do 30 L = 1 , N+l 
KB=L*2*NI+1 
XTT=0 . 

L1=L+1 
YB=B( LI ) 

30 write(12,fmt7) KB ,YB 
do 33 L=1 , N+2 
KB=L*2*NI-NI*2+1 
33 writeC 1 2 , f mt4 ) KB,KB,L 
writeC 12, 1 ( 1 1 msave ' • ) * ) 
if ( NBUC .eq. 2 .or. NBUC .eq. 3) then 
write(12 , •( 1 9 refine 0022 f, ) f ) 
endif 

writeC 12, 1 ( 9 'mesh 1 • ) * ) 

c ... 

c . Stiffener Type I.D. 
c . 1: Blade 2: Hat 
c 3: I -shape 4: J~shape 

c . 5: Angle 6: Zee 

c 7: Bead 8: Open Hat 

c ... 

35 continue 

goto C110, 120, 130, 140, 150,160,170,180) mtyp 
c ... Blade . . . 

110 IP1=1 

IP2=2 
IP3=3 
IP4=4 
IP5=5 
IP6 = 6 
JA1 = 1 
JA2=3 
JA3=5 
JA4=7 
JA5=9 
JA6= JA3 
JB1 = 1 
JB6 = 3 
XY =0. 

XA1=AC2) -XC 
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XA2=AC2)-XC/2. 

XA3= AC 2 ) 

XA4=AC2)+(XB-XC)/2. 

XA5 = AC 2 ) +XB-XC 

XA6=XA3 

YA6 = 0 . 

ZA6=XH 

TH1 = CXAl/R)*180./3. 1415927 
TH2 = (XA2/R)*180./3. 1415927 
TH3 = CXA3/R)*180./3. 1415927 
TH4 = ( XA4/R )*180 . /3 . 1415927 
TH5 = ( XA5/R)*180 . /3 . 1415927 
TH6 = ( XA3/R )*180 . /3 . 1415927 
R6 = R - XH 

writeC12, f mt 1 ) I PI , JA1 , JB1 , R * TH1 , 0 . 

writeC12, f mt2 ) I P2 , JA2 ,JB1,R,TH2,0. 

wri te( 12 , f mt2 ) I P3 , JA3 ,JB1,R,TH3,0. 

wri te( 12 , f mt2 ) I P4 , JA4 , JB1 , R , TH4 , 0 . 

wri te( 1 2 , f mt2 ) I P5 , JA5 ,JB1,R,TH5,0. 

writeC 12 , f mt2) IP6 , JA6 ,JB6,R6,TH6,0. 

wri te( 12 , f mt2) 7 , 0 , 0 , 0 . , 0 . , 0 . 

writeC 12 , f mta ) 1,2,7 

writeC 12, fmta) 2,3,7 

writeC 12 , f mta) 3,4,7 

writeC 12 , fmta ) 4,5,7 

writeC 12 , fmt3 ) IP3,IP6 

Ml 1 = 1 1 

M12= 12 

YA7- 0 . 

T1 1 = 0 . 

T12=0 . 

do 51 i=l , MLAYC 1 ) 

T1 1=T1 1+tsC i , 1 ) 

51 continue 

do 52 i = l , MLAYC 2) 

T12=T12+tsC i ,2) 

52 continue 

writeC 12, fmt6) IP1 , IP5,T11 ,T11 ,YA7 ,YA7,M11 
writeC 12, fmt6) IP3 , IP6 , T12 ,T12 , YA6 , YA6 ,M12 
go to 190 

c ... Closed Hat . . . 

120 IP1=1 

IP2 = 2 
IP3=3 
IP4 = 4 
IP5 = 5 
IP6 = 6 
IP7 = 7 
IP8 = 8 
JA1 = 1 
JA2 = 3 
JA3=5 
JA4 = 7 
JA5=9 
JA6= JA2 
JA7= JA3 
JA8= JA4 
JB1 = 1 
JB6 = 3 

XA1 S AC2) -XB/2 . 
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XA2=AC 2 ) -XC/2 . 

XA3=A( 2 ) 

XA9=AC2)+XC/2. 

XA5=AC2)+XB/2. 

XA6=AC2)-XT/2. 

XA7=A( 2 ) 

XA8=A(2)+XT/2 . 

TH1 =CXA1/R) *180. /3. 1915927 

TH2= CXA2/R) *180 ./3. 191 5927 

TH3= C XA3/R ) *180. /3 . 1915927 

TH9= CXA9/R) *180 ./3. 1915927 

TH5=(XA5/R)*180./3. 1915927 

TH6=TH3 - (XT/(2*(R-XH)))*180./3. 1915927 

TH7= CXA7/R) *180 ,/3. 1915927 

TH8=TH3 + ( XT/( 2* (R-XH)))*180./3. 1915927 

YA6=0 . 

ZA6=XH 

R6=R-XH 

writeC 12 , fmtl ) IP1 , JA1 , JB1 ,R,TH1 ,0 . 

writeC 12,fmt2) IP2 , JA2 ,JB1,R,TH2,0. 

writeC 12, fmt2) IP3 , JA3, JB1 ,R , TH3 , 0 . 

writeC 12 ,fmt2) IP9 , JA9 , JB1 , R , TH9 , 0 . 

writeC 1 2, fmt2) IP5, JA5 , JB1 , R , TH5 , 0 . 

write C 1 2 , f mt2 ) IP6 , JA6 , JB6 , R6 , TH6 , 0 . 

writeC 12, fmt2) IP7 , JA7 , JB6 , R6 , TH7 , 0 . 

writeC 12, fmt2) IP8 , JA8 , JB6 , R6 ,TH8 , 0 . 

writeC 1 2, fmt3) IP1 , IP2, IP3 , IP9, IP5 

writeC 12,fmt3) IP6,IP7,IP8 

writeC 12,fmt3) IP2,IP6 

writeC 12,fmt3) IP9,IP8 

Mll=ll 

M12=12 

Ml 3= 13 

M19=19 

YA7=0 . 

YA8=0 . 

T11=0 . 

T19=0. 

T12=0 . 

T13=0 . 

do 53 i = 1 ,MLAYC 1 ) 
tl l=tl 1+tsC i , 1 ) 

53 continue 

do 59 i = 1 ,MLAYC2) 
tl2=tl2+tsCi ,2) 

59 continue 

do 55 i = 1 ,MLAYC3) 
tl3=tl3+tsCi ,3) 

55 continue 

do 56 i = 1 ,MLAYC9) 
tl9=tl9+tsCi,2) 

56 continue 

writeC 1 2, fmt6) IP1 ,IP2,T11 ,T11 ,YA7,YA7,M11 
writeC 12, fmt6) IP2,IP9,T19,T19,YA8,YA8,M19 
writeC 12, fmt6) IP9 , IP5 ,T11 , Til , YA7 , YA7 ,M1 1 
writeC 12, fmt6b) IP2, IP6 ,T12,T12 ,YA6 , YA6 ,M12 
writeC 12, fmt6) IP6, IP8,T13,T13,YA6,YA6 ,M13 
writeC 12, fmtz) IP8, IP9 ,T12 ,T12 , YA6 , YA6 ,M12 
go to 190 
c ... I -shape . . . 
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130 IP1=1 

IP2 = 2 
IP3 = 3 
IP9=9 
IP5=5 
IP6 = 6 
IP7 = 7 
IP8=8 
JA1 = 1 
JA2 = 3 
JA3 = 5 
JA9 = 7 
JA5 = 9 
JA6= JA3 
JA7= JA2 
JA8= JA9 
JB1 = 1 
JB6 = 3 

XA1=A( 2) -XC 
XA2=A(2)-XC/2. 

XA3=A( 2) 

XA9=A(2)+(XB-XC)/2. 

XA5=A( 2)+XB“XC 
XA6=A( 2 ) 

XA7=A(2)-XT/2 . 

XA8=A(2)+XT/2. 

ZA6=XH 
YA6=0 . 

THl=(XAl/R)*180./3. 1915927 

TH2=(XA2/R)*180. /3. 1415927 

TH3= ( XA3/R )*180 ./3. 1915927 

TH9= (XA9/R) *180 ./3. 1915927 

TH5 = ( XA5/R )*18Q . /3 . 1915927 

TH6=(XA6/(R))*180 ./3. 1915927 

TH7=th6-(xt/(2*(R-XH)))*180./3. 1915927 

TH8=th6+(xt/(2*(R-XH)))*180./3. 1915927 

R6=R-XH 

Ml 1=1 1 

M12= 12 

Ml 3= 13 

writeC 12 , f mtl ) I PI , JA1 , JB1 , R,TH1 , 0 . 
wri te ( 1 2 , f mt2 ) I P2 , JA2 , JB 1 , R , TH2 , 0 . 
write(-12 , f mt2) IP3 , JA3 , JB1 , R , TH3 , 0 . 
write(12, f mt2 ) I P9 , JA9 , JB1 , R , TH9 , 0 . 
write ( 12 ,fmt2) IP5, JA5, JB1 ,R,TH5, 0 . 
write (12/ f mt2 ) I P6 / JA6 ,JB6,R6,TH6,0. 
write(12,fmt2) IP7 , JA7 ,JB6,R6,TH7/0. 
writeC 12 , f mt2) IP8 , JA8 , JB6 , R6 ,TH8 , 0 . 
writeC 12 , f mt3) IP1 , IP2 , IP3 , IP9 , I P5 
writeC 12 , f mt3) IP3,IP6 
writeC 12 , fmt3) IP7,IP6 
writeC 12 , f mt3 ) IP6,IP8 
YA7=0 . 

111 = 0. 

T12=0 . 

T1 3=0 . 

do 57 i=l jMLAYCl ) 
tll=tll+ts(i,l) 

57 continue 

do 58 i=l ,MLAY(2) 
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tl2=tl2+ts(i,2) 

58 continue 

do 59 i=l ,MLAY( 3) 
tl3=tl3+ts( i , 3) 

59 continue 

writeC 1 2 , f mt6 ) IP1,IP5,T11,T11 ,YA7,YA7,M11 
writeC 12,fmt6) IP3, IP6 ,T12,T12 ,YA6 ,YA6 ,M12 
writeC 12, frnt6) IP7 , IP6 ,T13,T13, YA6 ,YA6 ,M13 
write( 12 , f mt6 > IP6 ,IP8,T13,T13,YA6,YA6,M13 
go to 190 
c ... J-shape . . . 

190 IP1=1 

IP2=2 
IP3=3 
IP9=9 
IP5=5 
IP6-6 
IP7 = 7 
JA1 = 1 
JA2=3 
JA3=5 
JA9=7 
JA5=9 
JA6= JA3 
JA7= JA3 
JB1 = 1 
JB6 = 3 
JB7=5 

XA1=A(2)-XC 
XA2=AC2)-XC/2 . 

XA3=AC 2) 

XA9=AC2)+CX$-XC)/2. 

XA5=AC2)+XB-XC 

XA6=A(2) 

XA7=AC 2) -XT 
ZA6=XH 


YA6=0 . 


THl=CXAl/R)*180./3. 1915927 
TH2= CXA2/R) *180. /3. 1915927 
TH3=CXA3/R)*180./3. 1915927 
TH9=CXA9/R)*180./3. 1915927 
TH5=CXA5/R)*18Q./3. 1915927 
TH6=CXA6/R)*180./3. 1915927 
TH7 = th6- CXt/C 2*C R-XH) ))*180./3. 1915927 
R6=R-XH 
Mll=ll 
M12=12 
M13=13 


writeC 12, fmtl ) 
writeC 12, fmt2) 
writeC 12, fmt2) 
writeC 12 , fmt2) 
writeC 12, fmt2) 
writeC 12 , f mt2) 
writeC 12, fmt2) 
writeC 12, fmt3) 
writeC 12 , fmt3) 
writeC 12,fmt3) 
YA7=0 . 


IP1,JA1,JB1,R,TH1,0. 
IP2 , JA2 , JB1 , R , TH2 , 0 . 
IP3, JA3, JB1 ,R,TH3, 0 . 
IP9 , JA9 , JB1 , R ,TH9 , 0 . 
IPS, JA5, JB1 ,R,TH5,0 . 
IP6 , JA6 , JB6 ,R6 ,TH6 , 0 
IP7 , JA7 , JB7 , R6 ,TH7 , 0 
IP1 ,IP2,IP3,IP9,IP5 
IP3 , IP6 
IP6 , IP7 


T11=0 . 
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T12=0 . 

T1 3=0 . 

do 60 i=l ,MLAY( 1 ) 
tll=tll+ts(i #1) 

60 continue 

do 61 i=l,MLAY(2) 

tl2=tl2+ts(i,2) 

61 continue 

do 62 i=l ,MLAY( 3) 
tl3=tl3+ts(i ,3) 

62 continue 

write( 12 , tmt6 ) IP1,IP5,T11,T11 , YA7 ,YA7 /Mil 
write ( 12 , fmt6 ) IP3,IP6,T12/T12 , YA6 /YA6 /Ml 2 
writeC 12 , f mt6 ) I P6 , I P7 ,T13,T13, YA6 /YA6,M13 
go to 190 
c ... Angle . . . 

150 IP1=1 

I P2 = 2 
IP3=3 
IPA = A 
IP5 = 5 
IP6 = 6 
JA1 = 1 
JA2 = 3 
JA3=5 
JAA = 7 
JA5 = 9 
JA6= JA3 
JB1 = 1 
JB6 = 3 
XY =0. 

XA1=A(2)-XC 
XA2=A( 2 ) -XC/2 . 

XA3=A( 2 ) 

XAA=A( 2) + ( XB-XO/2 . 

XA5=A( 2 )+XB-XC 
XA6=XA3 
YA6=0 . 

ZA6=XH 

TH1 =( XA1/R ) *180 ./3. 1A1 5927 
TH2= (XA2/R) *180 ./3. 1A1 5927 
TH3= C XA3/R )*180 . /3 . 1 A15927 
THA = ( XAA/R)*180 . /3 . 1 A15927 
TH5= ( XA5/R )*180 . /3 . 1 A15927 
TH6= ( XA6/R )*180 . /3 . 1A15927 
R6=R-XH 

write (12, f mtl ) IP1 » JA1 ,JB1 , R , TH1 ,0 . 
writeC 12 , f mt2) IP2 , JA2 ,JB1,R/TH2,0. 
writeC 12, tint 2 ) I P3 , JA3 ,JB1,R,TH3,0. 
write (12, f mt2 ) I P A , JAA ,JB1,R,THA,0. 
write ( 12 , f mt2 ) IPS , JA5 ,JB1 ,R,TH5,0 . 
write (12, *f mt2 ) IP6 , JA6 , JB6 , R6 , TH6 , 0 . 
write(12,fmt3) IP1 , IP2 , IP3 , IPA , IPS 
write(12,fmt3) IP3,IP6 
Ml 1= 1 1 
Ml 2 = 1 2 
YA7=0 . 

T1 1 = 0 . 

T12=0. 

do 63 i= 1 ,MLAY(1 ) 
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63 


tll=tll+ts(i,l) 
continue 

do 64 i = 1,MLAYC2) 
tl 2= t 12+ tsC i , 2 ) 

64 continue 

writeC 12, fmt6) IP1 , IP3 , T1 1 , T1 1 , YA7 , YA7 ,M1 1 
writeC 1 2 , f mt6 ) IP3 , IP6 ,T12 ,T12 ,YA6 ,YA6 ,M12 
writeC 12 , f mt6 ) IP3 , IPS , T9 , T9 , YA7 , YA7 , M9 
go to 190 

c ... Zee-shape . . . 

160 IP1=1 

IP2=2 
IP3=3 
IP4=4 
IP5=5 
IP6 = 6 
IP7=7 
JA1 = 1 
JA2=3 
JA3=5 
JA4=7 
JA5=9 
JA6= JA3 
JA7= JA3 
JB1 = 1 
JB6 = 3 
JB7 = 5 

XA1=AC2) -XB/2 . 

XA2=A( 2 ) -XB/4 . 

XA3=A( 2) 

XA4=A( 2 )+XB/4 . 

XA5=AC2)+XB/2 . 

XA6=AC 2 ) 

XA7=AC 2) -XT 
ZA6=XH 
YA6=0 . 

TH1 =CXA1/R) *180 ./3. 1415927 
TH2= CXA2/R) *180 ./3. 1415927 
TH3= ( XA3/R )*180 . /3 .1415927 
TH4=CXA4/R)*180./3. 1415927 
TH5= CXA5/R) *180 ./3. 1415927 
TH6= CXA6/R) *180 ./3. 1415927 
TH7=CXA7/CR-XH) )*180./3. 1415927 
R6=R-XH 
Ml 1=1 1 
H12=12 
M13=13 

write (12, f mtl ) IP1 , JA1 , JB1 , R , TH1 , 0 . 
wr i te ( 1 2 , f mt2 ) I P2 , JA2 , JB 1 , R , TH2 , 0 . 
write ( 1 2 , f mt2 ) IP3 , JA3 , JB1 , R , TH3 , 0 . 
writeC 12 ,f mt2 ) IP4 , JA4 , JB1 , R , TH4 , 0 . 
writeC 12, fmt2) IP5 , JA5 , JB1 , R , TH5 , 0 . 
writeC 12 , f mt2 ) I P6 , JA6 , JB6 , R6 , TH6 , 0 . 
writeC 12, fmt2) IP7 , JA7 , JB7 , R6 , TH7 , 0 . 
write C 1 2 , f mt3 ) IP1 , IP2 , IP3 , IP4 , IPS 
writeC 1 2 , fmt3 ) IP3,IP6 
writeC 1 2 , f mt3) IP6,IP7 
YA7=0 . 

T1 1 = 0 . 

T12=0 . 
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T13=0 . 

do 65 i = l ,MLAY( 1 ) 
tl l=tll+ts( i , 1 ) 

65 continue 

do 66 i=l,MLAY(2) 
tl2= 1 12+ts( i ,2) 

66 continue 

do 67 i=l ,MLAY(3) 
tl3=tl3+ts(i ,3) 

67 continue 

write ( 12 , f mt6 ) IP1 , IP3 ,T9 ,T9 , YA7 , YA7 ,M9 
writeC 1 2, fmt6) IP3 , IP5 , Tl 1 , Tl 1 , YA7 , YA7 ,M1 1 
writeC 1 2, fmt6) IP3, IP6 ,T12,T12, YA6 ,YA6,M12 
writeC 1 2 , fmt6 ) IP6 , IP7 , T13 , Tl 3 , YA6 , YA6 ,M13 
go to 190 
c ... Bead . . . 

170 IP1=1 

I P2=2 
IP3=3 
IP4 = 4 
IP5=5 
IP6 = 6 
IP7 = 7 
IP8 = 8 
JA1 = 1 
JA2=3 
JA3=5 
JA4 = 7 
JA5 = 9 
JA6= JA2 
JA7= JA3 
JA8-JA4 
JB1 S 1 
JB6 = 3 

XA1=A( 2) -XB/2 . 

XA2=A( 2) -XH 
XA3=A( 2) 

XA4=AC 2)+XH 
XA5=A( 2 )+XB/2 . 

XA6 = A( 2 ) - 0 . 707*XH 
XA7=A( 2 ) 

XA8=A(2)+0.707*XH 
YA6 = 0 .. 

ZA6=0 . 707*XH 
ZA7=XH 

ZA8=0 . 707*XH 
R6 = R -ZA6 
R7=R -ZA7 
R8=R -ZA8 

TH1=CXA1/R)*18D./3.1415927 
TH2= ( XA2/R )*180 . /3 . 1415927 
TH3 = CXA3/R )*180 . /3 . 1415927 
TH4= CXA4/R)*180 ./3. 1415927 
TH5=CXA5/R)*180./3. 1415927 
TH6=th3- CzA6/R6)*180 . /3. 1415927 
TH7=CXA7/R)*180 ./3 . 1415927 
TH8=th3+(zA8/R8)*180./3. 1415927 
writeC 12, fmtl) IP1 , JA1 , JB1 ,R,TH1 , 0 . 
writeC 12, fmt2) IP2, JA2, JB1 ,R,TH2, 0 . 
writeC 12, fmt2) IP3, JA3, JB1 ,R,TH3, 0 . 


C<-5 
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68 


69 


70 


c . . . 

180 


writeC 12 ,fmt2) 
writeC 12 ,fmt2) 
writeC 12 , f mt2 ) 
writeC 12 , fmt2 ) 
writeC 12 , f mt2 ) 
writeC 1 2 , f mt3 ) 
writeC 1 2 , f mta ) 
writeC 12, f mta) 
writeC 12 , f mta) 
writeC 12 , f mta ) 
Mll=ll 
M12=12 
M13=13 
YA7=0 . 


IPA, JAA,JB1,R,THA,0. 
IPS, JA5 ,JB1,R,TH5,0. 

I P6 , JA6 ,JB6,R6,TH6,0. 

IP7,JA7,JB6,R7,TH7,0. 

IP8 , JA8 , JB6 , R8 , TH8 , 0 . 

IP1,IP2,IP3,IPA,IP5 

IP2 , IP6 , IP3 

IP6 , IP7 , IP3 

IP7 , IP8 , IP3 

IP8 , IPA , IP3 


YA8= 0 . 

T11=Q . 

T12=0 . 

T13=0 . 

do 68 i = l , MLAYC 1 ) 
t 1 1 =tl 1+tsC i , 1 ) 
continue 

do 69 i = l , MLAYC 2) 
tl2= tl2+tsC i ,2) 
continue 

do 70 i = 1 , MLAYC 3) 
tl 3= tl 3+tsC i , 3 ) 
continue 

writeC 12, fmt6) IP1 , IP2 , Tl 1 , Tl 1 , YA7 , YA7 ,M1 1 
writeC 12 , f mt6 ) IP2, IPA,T13 ,T13 ,YA8,YA8,M13 
writeC 12 , f mt6 ) IPA, IPS, Til ,T11 ,YA7 ,YA7 ,M11 
writeC 12, fmt6b) IP2, IP6 ,T12,T12 ,YA6 ,YA6 ,M12 
writeC 1 2, fmt6) IP6 , IPS , T12 , T12 , YA6 , YA6 ,M12 
writeC 12, fmtz) IPS , IPA , T12 , T12 , YA6 , YA6 ,M12 
go to 190 
. Open Hat .... 


IP1 

= 

1 



IP2 

= 

2 



IP3 

= 

3 



IPA 

= 

A 



IPS 

= 

5 



IP6 

= 

6 



IP7 

= 

7 



IP8 

= 

.8 



IP9 

= 

9 



JA1 

= 

1 



JA2 

= 

3 



JA3 

= 

5 



JAA 

= 

7 



JA5 

= 

9 



JA6 

= 

JA2 



JA7 

= 

JA1 



JA8 

= 

JAA 



JA9 

= 

JA5 



JB1 

= 

1 



JB6 

= 

3 



XA1 

= 

AC2) 

- 

XB/2 

XA2 

= 

AC2) 

- 

XC/2 

XA3 

= 

AC2) 



XAA 

= 

AC2) 

+ 

XC/2 

XA5 

= 

AC2) 

+ 

XB/2 
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XA6 = AC2) - XC/2 . 

XA7 = A(2) - XT/2. 

XA8 = AC2) + XC/2. 

XA9 = A(2) + XT/2. 

YA6 = 0. 

ZA6 = XH 

R6=R-XH 

THl=CXAl/R)*180./3. 1915927 
TH2=CXA2/R)*180 . /3 . 1915927 
TH3= (XA3/R) *180. /3. 1915927 
TH9= CXA9/R) *180 ./3. 1915927 
TH5=(XA5/R)*180 ./3. 1915927 
TH6=th3-(Xc/(2*R6))*180./3. 1915927 
TH7=th3-CXt/C2*R6) ) *180. /3. 1915927 
TH8=th3+CXc/C2*R6) )*180 . /3. 1915927 
TH9=th3+CXt/C2*R6) )*180./3. 1915927 
write C12,fmtl) IP1 » JA1 , JB1 , R ,TH1 , 0 . 
write C12,fmt2) IP2,JA2,JB1,R,TH2,0. 
writeC 12,fmt2) IP3 , JA3 , JB1 ,R,TH3,0. 
writeC12,fmt2) IP9 , JA9 , JB1 ,R , TH9 , 0 . 
writeC 12 ,fmt2) IP5, JA5 , JB1 ,R , TH5 , 0 . 
write(12,fmt2) IP6 , JA6 , JB6 ,R6 , TH6 , 0 . 
wr i te( 12 , f mt2 ) IP7 , JA7 ,JB6,R6,TH7,0. 
write( 12,fmt2) IP8 , JA8 , JB6 , R6 , TH8 , 0 . 
writeC 12 , fmt2 ) IP9 , JA9 , JB6 , R6 , TH9 , 0 . 
write( 12,fmt3) IP1 , IP2 , IP3, IP9 , IP5 
writeC12,fmt3) IP2.IP6 
writeC 12 , fmt3) IP6.IP7 
writeC 12, fmt3) IP9.IP8 
writeC 12 , fmt3) IP8.IP9 
Mil = 11 
M12 = 12 
M13 = 13 
YA7=0. 

T11=0 . 

T12=0 . 

T13=0 . 

do 71 i=l ,MLAYC 1 ) 
tll=tll+tsCi,l) 

71 continue ' 

do 72 i=l , MLAYC2) 
tl2=tl2+ts( i , 2) 

72 continue 

do 73 i=l,MLAYC3) 
tl3=tl3+tsCi,3) 

73 continue 

writeC 12, fmt6) IP1 , IP5 ,T11 ,T1 1 ,YA7 ,YA7 .Mil 
writeC 12, fmt6b) IP2 , IP6 ,T12 ,T12 , YA6 ,YA6,M12 
writeC 12, fmtz) IP8,IP9,T12,T12,YA6,YA6,M12 
writeC 12, fmt6) IP7 , IP6 ,T13 ,T13 ,YA6 , YA6 ,M13 
writeC 12, fmt6) IP8,IP9,T13,T13,YA6,YA6,M13 
go to 190 
190 continue 

YA7=0 . 

YA8=0. 

c ... 

c . ditto 1st stiffener 


c . . 


do 192 L=1 , N+l 
KB=L*2*NI+1 
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XTT = 0 . 

L1=L+1 
YB=B( H ) 

192 write( 1 2 , fmt7 ) KB,YB 
do 193 L=l,N+2 

KB=L*2*NI-2*NI+1 

if CMTYP .eq. 1 .or. MTYP .eq. 5) then 
NP1 =6 
NP2 = 6 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 

NP1 = 1 

NP2=5 

write(12,fmt9) NP1 , NP2,KB,KB,L 
elseif (MTYP .eq. 2) then 
NP1 =6 
NP2=8 

wri te( 12 , f mt9 ) NP1 , NP2 , KB , KB , L 
NP1 = 1 
NP2 = 2 

write( 12 , f mt9 ) NP1 , NP2 ,KB,KB , L 
NP1 = 4 
NP2 = 5 

write (12, f mt9 ) NP1 , NP2 , KB ,KB , L 
elseif (MTYP .eq. 3) then 
NP1 = 6 
NP2=7 
NP3=8 

write(12,fmt9) NP1 , NP2 ,KB ,KB , L 
write( 1 2 , f mt9 ) NP1 , NP3,KB,KB, L 
NP1 = 1 
NP2=5 

write( 12 , f mt9 ) NP1 , NP2 , KB ,KB , L 
elseif (MTYP .eq. 4 .or. 6) then 
NP1 = 6 
NP2 = 7 

write(12,fmt9) NP1 , NP2 , KB ,KB , L 
NP1 = 1 
NP2 = 5 

wri teC 12 , fmt9 ) NP1 , NP2 , KB , KB , L 
elseif (MTYP .eq. 7) then 
NP1 = 7 
NP2-7 

*rite(12,fmt9) NP1 , NP2 , KB ,KB , L 

NP1 = 1 

NP2=2 

wri te( 12 f f mt9 ) NP1 ,NP2,KB,KB,L 
NP1 = 4 
NP2 = 5 

wri te( 12 , fmt9 ) NP1 , NP2 , KB , KB , L 
elseif (MTYP .eq. 8) then 
NP1 = 6 
NP2 = 7 
NP3=8 
NP4 = 9 

write (12, f mt9 ) NP1 , NP2 , KB , KB , L 
write(12,fmt9) NP3 ,NP4 ,KB ,KB ,L 
NP1 = 1 
NP2=5 ' 

wri te( 12 , f mt9 ) NP1 , NP2 ,KB ,KB , L 
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193 continue 

writeC 12 , ' C ' ' msave")') 
if ( NBUC .eq. 2 .or. NBUC .eq. 3) then 
write( 12 > * ( ' * refine 0 0 2 2")') 
endif 

writeC 12 , * ( ' 'mesh ' ' ) ' ) 
write! 12 , ’ ( * ' eltsen 0 10 ")') 
if (MTYP . eq . 2 . or . MTYP . eq . 7 . or . MTYP . eq .8) then 
writeC 12,' C" eltsen 0 10 aname=part" ) * ) 
endif 
1 = 1 

writeC12,fmt0) L 

writeC12,fmtc) L,L 

writeC 12, *( ' 'merge' ' ) ' ) 

if CM . le . 1) go to 199 

do 195 L=1,M 

if CL .le. 1) go to 195 

writeC12, • C ' 'ditto MESH=2")') 

DTH= C ACL+D/R - AC2)/R >*180/3.1915927 

WRITEC*,*) AC L+l ) , AC 2) ,DTH 

writeC 12 , fmt8 ) DTH 

writeC12,fmt0) L 

writeC 12, fmtc) L,L 

write C12, 'C ' 'merge ")') 

195 continue 
199 continue 
c ... 

c CONO SUBROUTINE 

c ... 

writeC 12 ,' C ' 'mset 10 insert type msh'')') 

writeC 12 ,' C ' 'mset 10 del name=base" ) ' ) 

writeC 12, 'C ' 'set syntax on'')') 

writeC 12 , ' C " ' ' ) ’ > 

writeC 12, 'C "i CONODE subroutine' ')' ) 

writeC 12 , ' C ' 't######*#*#####**#*' ' > * ) 

writeC 12 , ' C ' ' sub CONO 81stl 81st2 81st3")'> 

writeC 12 ,' C * ' set echo on'')') 

writeC 12, ' C ' ' let 8nnod=/CippC 1 ) * ' > ' ) 

writeC 12 ,' C ' ' let 8ifn=5Cif lCnlst . nv, 0 ,81st2) • • ) ' ) 

writeC 12 , ' C " let 8 ln*Xlfm(8ifn, 1 ) * ' ) ' ) 

writeC 12 , ' C " let 8nl=Xibcl C81n , 1 ) " ) ' ) 

writeC 12 , • C " let 8d*5£rf mCSifn, 1 , 0,81n) • * ) • ) 

writeC 12, ' C ' ' let 8ifn=Xif lCnlst . nv, 0 ,81st3) ")• ) 

writeC12, ' C " let 81n=XlfmC8ifn , 1 ) " ) ' ) 

writeC12,'C" let 8n2=Xibcl C81n, 1 ) " ) ' ) 

write! 12, ' C " let 8d=/Crf mC8ifn , 1 , 0 ,81n) ' • ) • ) 

write!12,'C" let 8ifn=Xif lCnlst . nv, 0,81stl ) ")• ) 

writeC 12 , ' C " let 81n=XlfmC8ifn, 1 ) • ' ) • ) 

writeC 12 , ' C ' ' ;f2 format ” " C lx, i5) ' * ) • ) 

write! 12 , ' C ' ' ;f3 format ""C""Print Nodal Coordinates' ,lx, ' 
*" ' Node "")")') 
writeC 12 ,' C " write 6 ;f2 8nl")') 
writeC 12 , * C ' • write 6 ;f2 8n2")') 
writeC 12 , ' C " write 6 ;f3")') 
writeC 12 ,' C * ' do ;20 8n=l ,8nnod' ' ) ' ) 
writeC 12 , ' C * ' if XibclC81n,8n> ; 20 , ; 20 , 1 " ) ' ) 
writeC 12 , ' C ' ' let 8nn=XibclC81n,8n) * • ) • ) 
writeC 12 , ' C " write 6 ;f2 8nn")') 

writeC 12 ,' C ' ' conode/isys=l 8nn 8nl 8n2 -2 l.e+9")') 
writeC12, ' conode/isys=l 8nn 8nl 8n2 -3 l.e+9")') 

t 
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c 

c 

c 


C 

C 


c . 


writeC 12 , ' ( 1 1 ;20 continue ' *)' ) 

writeC 12 , ' C " let 8d=XrfmC&if n, 1 , 0 ,&ln) 1 1 ) • ) 

writeC 12 , 1 ( ' * return' 1 ) 1 ) 

write C 1 2 , ' C " end")') 

. boundary conditions definition 


xl = 

0.00 

x2= 

9999. 

yl = 

-180. 

y2= 

+ 180. 

zl = 

-.001 

z2= 

.001 


writeC 12 , ' ( 1 'nset 11 copy volu ",6fl0.3," 1")') 
1 1 xl ,x2 ,yl ,y2,zl ,z2 

xl= 0.0 
x2= 9999. 

yl= -180. 
y2= +180. 

zl = -.001 + BY 

z2= +.001 + BY 

writeC 12 , ' ( ' 'nset 12 copy volu ",6fl0.3," l") 1 ) 
1 xl ,x2 ,yl ,y2,zl ,z2 


xl = 

0.0 

x2= 

9999. 

yl = 

-.001 

y2= 

+ .001 

zl = 

-999. 

z2= 

999. 


writeC12, 'C "nset 13 copy volu ",6fl0.3," 1")') 

1 xl ,x2 ,yl ,y2,zl ,z2 

TH = AX/R*180./3. 1415927 

xl= 0.0 
x2= 9999. 

yl= -.001 + TH 
y2= +.001 + TH 

zl= -999. 
z2= 999. 

writeC 12 j ' C * • nset 14 copy volu ",6fl0.3," l") f ) 

1 xl ,x2/yl ,y2,zl ,z2 

xl= 0.0 
x2= 9999. 
yl=-0 .001 
y2=+0 . 001 
zl=-0.001 +BY 
z2=+0 . 001 +BY 

writeC 12 , ' C " nlist 11 insert volu ",6f9.3, ,f l") 1 ) 
1 xl ,x2,yl ,y2,zl ,z2 

right front corner 
xl = 0.0 
x2= 9999. 
yl= -.001 + TH 
y2= +.001 + TH 
zl=-0 .001 +BY 
z2=+0 .001 +BY 

writeC 12 , ' ( ' f nlist 12 insert volu ",6f9.3," I") f ) 
1 xl ,x2,yl ,y2,zl ,z2 
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c... left rear corner 
xl =0 . 0 
x2=9999 . 
y 1 = -.001 
y2 = +.001 
zl = -.001 
z2 = +.001 

wri te( 12 , 1 C 1 * nlist 13 insert volu ,, ,6f9.3," l ,f )') 

1 xl ,x2 ,yl ,y2 ,zl ,z2 

c... right rear corner 
xl = 0 . 0 
x2 = 9999 * 
yl = - .001 + TH 
y2=+ .001 + TH 
zl = - .001 
z2=+ .001 

wri te( 1 2 , ' C * 1 nlist 14 insert volu ,, ,6f9.3, ff I'M*) 

1 xl ,x2 ,yl ,y2 ,zl ,z2 

wr iteC 12 , * C * * nset 11 del nlist 11 12 13 14")') 

writeC 1 2 , 1 C 1 f nset 12 del nlist 11 12 13 l*") 1 ) 

wr ite( 1 2 , 1 C r 1 nset 13 del nlist 11 12 13 l*") 1 ) 

writeC 12, 1 ( * 1 nset 14 del nlist 11 12 13 14 ,t ) , > 

writeC 12 ,' C 1 * nlist 21 insert nset 11 •'l 1 ) 
wri teC 12 , 1 C 1 1 nlist 22 insert nset 12 f, ) f ) 
writeC 12 , 1 C * ' nlist 23 insert nset 13 ")•) 
writeC 12 , 1 C ' ' nlist 24 insert nset 14 ")') 

NSET1= 1 1 
NSET2= 1 2 
NSET3=1 3 
NSET 4 = 14 

c . . . 

writeC 12 , 1 C * * call cono 22 11 12 ")') 
writeC 12 , 1 C * f call cono 21 13 14 ")*) 

C 

writeC 12, 1 C f • nset 11 insert nlist 13 14")*) 
writeC 12 , 1 ( * # nset 12 insert nlist 11 12") f ) 
writeC 1 2 , 1 C * 1 nset 13 insert nlist 11 13 f, ) f ) 
writeC 12, f ( 1 * nset 14 insert nlist 12 14") r ) 

C 

c... Shell normals and skew local coordinate system 
c 

del = .1 
RMdel -= R - del 
RPdel = R + del 

writeC 12, 1 C 9 1 mset 1015 copy type=msh * 1 ) * ) 

writeC 12, f C ' 1 mset 1015 mask volu • 1 ,f 8 . 4 , lx,f8 . 4 * 1 -180. 180. 
8 -999. +999. I*')') RMdel, RPdel 
wri teC 12 , f C 1 1 nset 1015 insert mset = l 015 * ' ) 1 ) 
c 

writeC 12 , * C 1 1 shlnor")*) 

writeC 12 , ' C 1 1 nodske loca 0 nset = l 015 f 1 ) 1 ) 

c 

writeC 12, 1 C 1 1 nset 1011 insert nset=l 1 * 1 ) * ) 
writeC 12, 1 C 1 1 nset 1012 insert nset^^ 1 * ) ■ ) 
writeC 12 , 1 C 1 * nset 1011 mask nset=1015 ' ' ) 1 ) 
writeC 12 , f C 1 • nset 1012 mask nset = 1015 1 9 ) 1 ) 
c 

ifClbcll.eq.l) then 

writeC 12, f C 1 1 dofsup 3 nset=1011 • 1 ) 1 ) 
elseif C lbcll . eg . 2) then 
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writeC 12, 1 C 1 * dofsup/dnf 35 nset = 1 0 1 1 1 1 ) • ) 
endif 
c 

if C lbcl2 . eq . 1 ) then 

writeC12, '( ’ * dofsup 3 nset= 1 01 2 1 1 ) 1 ) 
elseif C lbcl 2 . eq . 2) then 

writeC 12, f C 1 1 dofsup/dnf 35 nset= 1 0 1 2 1 f ) ■ ) 
endif 
c 

if ( lbcl3 . eq . 1 ) then 

writeC 12 , f C 1 ' dofsup 3 nset=13 ,, ) f ) 
elseif ( lbcl 3 .eq .2) then 

writeC 12 , 1 ( f 1 dofsup/dnf 34 nset=13 ,, ) f ) 
endif 
c 

if C lbcl4 . eq . 1 ) then 

writeC 12 # * C 1 1 dofsup 3 nset=14 ,, ) , ) 
elseif C lbcl4 . eq . 2 ) then 

writeC 12 , 1 C 1 1 dofsup/dnf 34 nset=14 ,f )') 
endif 
c 

c Kinematic constraints 
c 

writeC 12, 1 C 1 1 dofsup/dnf 123 nlist= 1 3 • 1 ) • ) 
writeC 12 , 1 C 1 1 dofsup 1 nlist = 14 1 1 ) f ) 
c write C 12 , 1 C ’ r bcsys 1 0 nlist = l 3 1 1 ) 1 ) 

c writeC 12 , 1 C * 1 bcsys -1 0 nlist = l 4 1 ■ ) 1 ) 

c 

c Rib boundary conditions CFrame) 
c 

NB1 = 1 
NB2=N+2 

if CLEND .ne. 1) NB1=2 

if CLEND .ne. 1) NB2=N+1 

do 210 IB=NB1,NB2 
if CLR1B .eq. 3) then 
if CLRBC .eq. 1) then 

writeC 12 , ' C 1 * dofsup 3 aname=kp • 1 , II ) f ) IB 
writeC 12, 1 C * 1 dofsup 3 aname = kb f 1 , 1 1 ) • ) IB 
elseif CLRBC .eq. 2) then 
wri teC 12 , ' C 1 1 dofsup/dnf 35 aname=kp * 1 , 1 1 ) • ) IB 
writeC 12 , 1 C 1 1 dofsup/dnf 35 aname=kb 1 • , II ) • ) IB 
endif 

elseif CLRIB .eq. 1) then 
if CLRBC fceq. 1) then 

writeC 12 > ' C 1 • dofsup 3 aname = kp f ' , II ) 1 ) IB 
elseif CLRBC . eq . 2) then 
writeC 12 , 1 C * 1 dofsup/dnf 35 aname=kp 1 1 , 1 1 ) • ) IB 
endif 

elseif CLRIB . eq . 2) then 
if CLRBC . eq . 1) then 

writeC 12 , 1 C * f dofsup 3 aname=kb ■ 1 , II ) 1 ) IB 
elseif CLRBC .eq.2) then 
writeC 12 , ' C 1 1 dofsup/dnf 35 aname=kb ' 1 , II ) * ) IB 
endif 1 
endif 

210 continue 


c . . . 
c 

c . . . 


Corner node constraints to stablize the panel. 
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999 continue 

write (12, ' ( 1 'finish : stop 11 ) 1 ) 

c . . . 

close(unit=12) 

return 

end 

c################## 

c NTOKEN -- utility I/O subroutine 
c written by Dan Rickhoff LMSC 81~12; 
c with modification by L. L. Chou LMSC 81“12. 
c«tt##«tt****»t*tt*ft** 

subroutine nrealCntk ,ra) 
parameter ( maxtkn = 25 ) 
character a*127, tkns( maxtkn)*! 0 
dimension lentk ( maxtkn) ,ra(maxtkn) 
c 

100 ierr=0 

call get lin( 5, a, irdata, *910 ) 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 


do 200 i=l , ntk 
r = ra(i) 

call rintrpC tkns(i), lentk(i), r, *991 ) 
ra(i) = r 
go to 200 

991 ierr=ierr+l 

write(6,'( 19x, "Not a real ")') 

200 continue 

if (ierr .ge. 1) go to 100 
return 1 

999 continue 

write(6,'(" ERROR return from getkns")') 

910 continue 

wr ite( 6 , ' ( " End-of-File return from "getlin" • 1 ) ■ ) 

return 

end 

subroutine nintgCntk , ia) 
parameter ( maxtkn = 25 ) 
character a*127, tkns( maxtkn)*10 
dimension lentk(maxtkn) , ia(maxtkn) 


100 ierr = Q. 

call getlinC 5, a, irdata, *910 ) 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 

do 200 i=l,ntk 
intgr = ia(i) 

call iintrpC tkns(i), lentk(i), intgr, *992 ) 
wri te( 6 , 1 ( 9x , ''integer = ", il0) f ) intgr 
ia(i) = irttgr 
go to 200 

992 ierr=ierr+l 

write ( 6 , ' ( 19x, "Not an integer ")*) 

200 continue 

if ( ierr . ge . 1) go to 100 
return 


c 


999 continue 

write(6,'(" ERROR return from getkns") 1 ) 
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910 continue 

write^,^* 1 End-of-File return from "getlin" 1 1 ) f ) 
return 
end 
c 

subroutine stitle(sline) 
c 

character a*127, tkns(l)*60, sline*(*) 
dimension lentk(l) 

c 

call getlinC 5, a, irdata, *910 ) 
ntk = 1 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 
sline= tknsC 1 ) ( 1 : lentk ( 1 ) ) 
return 
c 

999 continue 

write(6,'( ,f ERROR return from getkns ,, ) , > 

910 continue 

write(6, f ( ,r End-of-File return from "getlin " 1 f ) f ) 
return 
end 
c 

c **************************************************************** 
c 

subroutine rintrpC tkn, lentk, r, * ) 
c 

c# Read a real number, R, from a character string, TKN, of length LENTK. 
ct (Note that blanks in the strings are ignored. Leading and/or trailing 
c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
c# which is not OK j try to fix this sometime.) 
c 

character tkn*(*) 
c 

if ( lentk .eq. 0 ) return 
c 

readC tkn( 1 : lentk ) , f ( bn , f 80 . 0 ) 9 , err=990 ) r 
c 

return 

c 

c 

990 continue 
return 1 
c 

end 

c 

c **************************************************************** 
c 

subroutine iintrpC tkn, lentk, i, * ) 
c 

c# Read a integer number, I, from a character string, TKN, of length LENTK. 
c# (Note that blanks in the strings are ignored. Leading and/or trailing 
c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
ci which is not OK; try to fix this sometime.) 
c 

character tkn*(*) 
c 

if ( lentk .eq. 0 ) return 


c 


read( tkn( 1 : lentk ) , f (bn,i80) , J err=990 ) i 


A- 137 



c 

return 

c 

c 

990 continue 
return 1 
c 

end 

c 

C **************************************************************** 

c 

subroutine getknsC a, irdata, tkns, lentk, ntk, * ) 
c 

c 

c# ARGUMENTS: 


c 

c# in a The given character string containing the input line. 

c# If this string is blank (input IRDATA = 0) then all 

c# NTK returned tokens will be blank with zero length. 

c 

c# in irdata . . The input line in string A extends to this character 

c# position, 

c 

c# out tkns .... The character array of tokens. The character lengths 

c# of these array elements limit the lengths of input 

c# tokens; tokens are correctly parsed but then truncated 

c# to this length, 

c 

c# out lentk ... An integer array with the string lengths of the tokens 

c# (after any necessary truncation), 

c 

c# in ntk The number of tokens to be parsed from the line. 

c 

c# - * Alternate RETURN in the event that a string token 

ct initiated by an apostrophy had no trailing apostrophy, or 

c# the next character after the trailing apostrophy was not 

c# a delimiter (or end-of-line). 

c# NOTE: The arguments that had been interpreted up to the 

c# point that the error occured are returned; the 

c# will be blank. 

c 

c 


c# PURPOSE ^ 
c 

c# Parses an "input line" contained in a given string to find the first NTK 
ctt tokens on the line, 
c 

c# Tokens are delimited by beginning-of - line, commas, spaces, tabs, or 
c# end-of-line. Tabs are equivalent to (single) spaces, 
c 

c# A single asterisk (*) input token is recognized as a "null" token, for 
c# which the retuned string is blank and returned length is zero. Some users 
c# may find entry of the null token preferable to that of a comma with no 
c# preceeding token, or two adjacent apostrophies (see the next 
c# paragraph), 
c 

c# If a token is enclosed within apostrophies then it may contain commas, 
c# spaces, or tabs. The returned length of such a token is the number 
c# number of character positions between the pair of apostrophies . 
c# Note that, for this length calculation, tabs are a single character. 
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c# Contigous alphanumeric strings (no embedded delimiters) do not need to be 
c# enclosed within apostrophies . 


There is no provision for including apostrophies ( » ) or the comment 


c# 

* character (the hash symbol, #; see routine GETLIN) within a token, 
c# i.e., they may not be "escaped". Strings enclosed within apostrophies 
c# may contain asterisks; these will not be misinterpreted as 
c# null tokens. 


c# 


A line with only "null" data will minimally contain (before an optional 
c# comment) either a null character, a comma or two adjacent apostrophies. 

C * Tt!* <enS arS p * ace< ^' justified, into the character array TKNS 

c# The tokens may be truncated in order to fit into the given TKNS array. 

c# 

c 



c 
c 

c _ _ 

C# Arrays for the returned tokens and their correcponding 

c * character lengths. 


The lengths of the returned tokens are placed in the LENTK array. 


c 

c 


c 

c - 

c# 

c# 


character tkns(*)*(*) 
dimension lentk(») 


Strings for the input line, the "curent" character on the 


c 

c 



c 

character ax(x), c*l, tab*l , 

spaceXl 

c 

save space , comma 

data space /• •/, comma /', 

, apos 
'/, apos 


tab = char(9) 


c 

maxlen = len( tkns(l) ) 


c 

c 



c* 

c 

Initialize ntk tokens to 

c 




, null 


50 


do 50 i=l,ntk 
tkns(i) = 1 1 
lentkCi) = 0 
continue 


if ( irdata . eq. 0 ) return 


c 

c 

c# 

c# 

c 

c 


Something is on the line (before any comment), 
Parse the tokens (up to NTKN of them). 


is = 0 
itkn = 1 
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200 continue 

# Move along the line looking for a token or a comma (null token). 

is = is + 1 
c = a(is:is) 


if ( c . eq . tab .or. c . eq . space ) then 

# Move to next character; to continue looking for token. 

go to 200 

else if ( c.eq. comma ) then 

# No token found before this comma indicates null token, 
if ( itkn .eq. ntkn ) return 

itkn = itkn + 1 

if ( is .eq. irdata ) return 

# Move to next character; look for next token, 
go to 200 


else 

300 continue 

* We are at the left-most character of a non-null token, 
il = is 


if ( c .eq. apos ) then 

# We look for the trailing apostrophy for this "quoted string", 
if ( is .eq. irdata ) return 1 
450 continue 

is » is + 1 
c - a(is:is) 
if ( c .eq. apos ) then 
length ■ is - il - 1 
if ( length .gt. maxlen ) then 
length = maxlen 
endif 

lentk( itkn ) * length 

if ( length .gt. 0 ) tkns( itkn ) = a( il+1: il+length ) 
if C is .eq. irdata ) return 
is = is + 1 
c = a(is:is) 

if ( .not. (c.eq. space .or. c.eq. tab .or. c.eq. comma) ) 

* return 1 

else 

if ( is .eq. irdata ) return 1 
go to 450 
endif 


else 

400 continue 

if ( is .eq. irdata ) then 

# The token extends to the end of the input data, 
if ( a( il : is) .eq. null ) return 
tkns( itkn ) = a(il: is) 

# The input token length may exceed the length of the variable. 

length = is - il + 1 
if ( length .le. maxlen ) then 
lentk( itkn ) = length 
else 


maxlen 


lentk( itkn ) = 
endif 
return 
endif 

# Move along the line looking for the end of the token, 
is = is + 1 

c = a( is : is ) 

if ( .not. (c.eq. space .or. c.eq.tab .or. c.eq. comma) ) then 
if ( c . eq . apos ) return 1 

# Move to next character; continue looking for end of token, 
go to 400 
endif 

* The previous character was the right-most character of the token 

if C a ( i 1 ; is- 1 ) . ne . null ) then 

tkns( itkn ) = a(il: is-1) 

i The input token length may exceed the length of the variable, 
length = is - il 

if ( length . le . maxlen ) then 
lentk( itkn ) = length 
else 

lentk ( itkn ) = maxlen 
endif 
endif 

endif 

if ( itkn . eq . ntkn ) return 

* Find the next location at which we should begin looking for the 

# next token, i.e., after a following comma or at the next token, 
itkn = itkn + 1 

if ( is . eq . irdata ) return 
if C c .eq. comma ) then 

# Go back and look for a token following this comma, 
go to 200 

else 

# Curent character was a space or a tab. 

# Look for a comma, the next token, or end of line, 
continue 

is = is + 1 
c = a( is : is) 

if ( c .eq, comma ) then 

if ^ is . eq . irdata ) return 
go to 200 

else if ( c.eq. space .or. c.eq.tab ) then 
if ( is . eq , irdata ) return 
go to 500 
else 

go to 300 
endif 
endif 


endif 
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subroutine getlinC nunit, a, irdata, * ) 
c 

c 

c# ARGUMENTS: 
c 

c# in nunit . . . 

c« 

c 

c# out a 

c# 
c# 
ci 

c 

c# out irdata . . 

c# 
c# 

c 

C# - * 

c ft 

c 

c 

c# PURPOSE: 
c 

c# Reads line(s) from unit NUNIT and determines the location, IRDATA, in the 
cl string beyond which there may be only spaces, tabs, or a comment. Comments 
c# begin with a hash symbol (#). Blank lines and lines that contain only a 
c# comment line are ignored and the next line is read until a line with some 
c# data or End-of-File is encountered. ("Some data" might minimally be a 
c# single comma, an asterisk, or two adjacent apostrophies . ) 
c 

c 

c 

character a*(*) , comnt*l 
save comnt 
data comnt /*#'/ 
c 

c 

C# Read the input "line" from disk. 

c 

c 

100 continue 

read( nunit, '(a) 1 , end=910 ) a 
c 

c i We want to ignore any trailing comment and lines 

ci that are blank except for a comment (if any), 

c 

icom = index( a, comnt ) 
c 

c # Location of right-most non-blank before comment (if any), 
if ( icom ,gt. 1 ) then 

irdata = iright( a(l: icom-1) ) 
else if ( icom .eq. 1 ) then 
go to 100 
else 

irdata s iright( a ) 
endif 
c 

c i If only blanks before comment (if present) then read next line, 

if (irdata .eq. 0) go to 100 


The Fortran logical unit number of the file from which 
the input line(s) should be read. 

A character string into which the input line will be 
read. The length of this given string determines how 
long the data line may be; input past this length is 
ignored . 

The input "data” in string A extends to this character 
position. The data portion does not include any 
trailing comment (if present). 

Alternare RETURN in the event that End-of-File is 
encountered on attempt to read a line from unit NUNIT. 


c 
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return 


c 

c RETURN on End-of-File 

910 continue 
return 1 
c 

end 

c 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
c 

function ileftC string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 

c 

c Find the position of the leftmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank, 
c 

c 

c 

char acterXf x ) string 
characterxi tab 
c 

tab = char(9) 
c 

c 

c Find the location of the first nonblank character, 
c 

Is = len( string ) 
c 

do 100 i=l , Is 

if( stringC i : i ) . ne . 1 1 

* .and. string(i:i) .ne. tab ) then 

ileft = i 
return 
endif 

100 continue 
c 

c 

c String was blank. Set ileft to zero (as a flag). 

ileft = 0 
c 

return 

end 

c 

c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

function irightC string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 



c Find the position of the rightmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 

c 



c 

characterX( x) string 
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character*! tab 


tab = char(9) 


Find the location of the last nonblank character . 

Is = len( string ) 

do 100 i=ls , 1 > ‘ 1 

if( string ( i : i ) .ne. 1 1 

* .and. string(i:i) .ne. tab ) then 

iright = i 
return 
endif 

100 continue 


String was blank. Set iright to zero (as a flag), 
iright = 0 

return 

end 

En d of SP910 . FOR 


A3. 3. 3 


C 

C 

C 

c 

c 

c 

c 


TUBULAR TRUSS CORE PANEL MODULE # 3 PROGRAM 

2/28/92 TUB212 . FOR 

Modified by JTH, LASC, 

from TUB. FOR (9/9/91) by AYW, LMSC 

Changes made to subroutines TMESH, TMAT and TSOLVE, etc. 
PROGRAM TUB 

common /tgeom/ A , B ,PH , PL , NW,K , NBC, NBUC , TCT, BCT ,CTT ,TAR,NDF , ND ,MS 
common /bmat/ NMAT ,E1(3,7),V1(3,7),G1(3,7),NF 
* T(3,6),C(3,6),SH(3,6),F(3,6) 

common /taml/ AMLSC 6,6) , AMLA( 6,6) , AMLT ( 6 ) , DA 

common /twall/ MWT ,MWB,MWC,NWT(99) ,NWB(99) ,NWC(99) ,TT(99) , BTC 99) , 
* CT (99), AT (99), AB (99), AC (99) 

common /load/ XL( 9 ) , SL ( 9) ,XE, XS , SE, SS , TMPD 
common /name/ nmt 


c 

X 

Advanced Composite Structural Program Input X 

c 

X 

variables definition . . . 

X 

c 

X 


X 

c 

X 

[ Geometry data ] 

X 

c 

X 

A= bottom width of the tube 

X 

c 

X 

B= top width of the tube 

X 

c 

X 

PH= hight of panel 

X 

c 

X 

PL= length of panel 

X 

c 

X 

NW = number of tubes (whole 

tubes) x 

c 

X 

NBC - boundary condition indication X 

c 

X 

NBUC = fine or coarse mesh indication X 

c 

X 


X 

c 

X 

[ Material properties ] 

X 

c 

X 

NMAT=Number of materials. 

X 

c 

X 

Young*s modulus: El(i,j) 

X 

c 

X 

Possion ratio : Vl(i,j) 

X 

c 

X 

Shear modulus ; Gl(i,j) 

X 

c 

X 

Filler Material ditinquisher 

: NF l-“Isotropic X 

c 

X 


2- “OrthotropicX 

c 

X 


X 

c 

X 

[ Composite Wall Layups ] 

X 

c 

X 

number of plies for the top sheet = MWT X 

c 

X 

number of plies for the bot. 

sheet = MWB * 

c 

X 

number of plies for the tube 

wall = MWC * 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


type of material 
type of material 
type of material 
ply thickness of 
ply thickness of 
ply thickness of 
ply orientation 
ply orientation 
ply orientation 


for top sheet = NWT 
for bot. sheet = NWB 
for tube wall 3 NWC 
the top sheet = TT 
the bottom sheet = BT 
the tube wall = CT 
of the top sheet = AT (MWT) 
of the bot. sheet = AB(MWB) 
of the tube wall = AC(MWC) 


[ Loads] 
axial load: 
shear load; 


XL ( i ) 
SL ( i ) 


[AML Failure Parameter] 

ami angles: AMLA(6,6) 

ami strain allowables; AMLS(6,6) 


x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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c 


ami strain angle curve temperature: AMLT( 6 ) 
ami invoking indicator: DA (1. yes, 0. no) 


SUBROUTINES: * 

yalO: read tgeom , dat ( tapel 0 ) * 

yall: read tmat . dat C tapel 1 ) * 

nal 0 : input data for the new tgeom . dat( tapelO)* 
nail; input data for the new tmat . datC tapel 1 ) * 
tlod: loads input * 

t 1 is : list data * 

walis : list wall composition * 

tmod: modify input data * 

walmod: modify wall composition * 

tsave : update data * 


Jul . 1991 

Original creator -- L 
Updated by A 
Updated by J 


L. Chou, 
Y. Wei, 


LMSC 81-12 
LMSC 81-12 


T. Huang, LASC 73-C2 


* * 
c * 

LOGICAL herel 0 , herel 1 ,herel2 
character*l tok 
character nmt*50 
dimension nmt(7) 

100 format(al) 

writetSj'C" Advanced Composite Structural Program 1 *>*> 
write(6,*) f ’ 

wri te( 6 , f C * 1 ' TUBULAR TRUSS CORE PANEL MODULE 
writeCbj'C* 1 Version 1,3, 2/28/92 ,, ) f ) 

writeC 6 , X) ' * 

write(6, , ( ,, Updated by Tony Wei, LMSC Bid. 157 Ext : 6-1137 1 1 ) 
*■) 

write( 6 ,*) 1 * 
c 

c checking existance of input files for DIAL model 

c initialize geometry ( tgeom . dat ) and materiaK tmat . dat ) files 

c 

inquireC f ile = f tgeom . dat f , exist—herelO ) 
inquireC f ile= • tmat . dat 1 , exist=herell ) 
if (herelO) then 

wri te( 6 , 1 ( * f Geometric Database Already Exist.' 1 )*) 

call yalO 
else 

call nalO 
endif 

write(6,*)' 1 

if (herell) then 

write^'C* Material Database Already Exist. ,, ) , ) 

call yall 
write(6,*)' f 
else 

call nail 
call tlod 
endif 


list input parameters 


call tlis 
call tmod 


writeC 6 , *) 1 


c # end of interactive input, 

c # begin Dial runstream generation. 

c # 

writeC 6 , * C 1 1 *** Begin Dial Runstream Generation * 1 ) ■ ) 

writeC 6 , *) 1 1 

call tmesh 

call tbset 

call tmat 

call tload 

call tsolve 

writeC6, , C* 1 *** Dial Runstream Generation Complete *** tf )») 

write C 6 , *) 1 1 
stop 
end 
c 

c Read geometry input from existing file tgeom.dat 

c 

SUBROUTINE yalO 

common /tgeom/ A, B, PH, PL, NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND ,MS 
common /bmat/ NMAT ,E1(3,7),V1(3,7) , G1 C 3 ,7) , NF 
c * TC3,6),CC3,6),SHC3,6),FC3,6) 

common /taml/ AMLSC6 , 6) , AML AC 6 ,6) , AMLTC6) ,DA 

common /twall/ MWT,MWB,MWC,NWTC99) ,NWBC99) ,NWCC99) ,TTC99) , BTC 99) , 
*CTC99) , AT C99) , ABC 99 ) , ACC 99 ) 
common /load/ XL C A ) , SL C A ) , XE , XS , SE , SS , TMPD 
character blk 
c 

c read tgeom.dat CunitlO) 

c 

open C uni t = l 0 , status- ’old 1 , f ile= ' tgeom . dat 1 ) 

101 formatC3i3) 

102 f ormat C 3f 19 . 9 ) 

103 f ormat C Af 1 0 . 5) 

10A formatCAiS) 

105 formate IX, i2 , lx , i2, lx ,f 7 . 5, lx,f7 .2) 

106 formatCal) 

107 f ormatC 3f 9 . 5 ) 

108 f ormat C f 12 . 5 , 3i3 ) 
c 

c geom.dat C tape 10): geometry 

c 

read(10,103)A,B,PH,PL 
readC 10 , 1 0 A 1NW, K , NBC , NBUC 
read C 1 0 , 1 08 )TAR , NDF , ND , MS 
readC 10, 1 07) TCT, BCT ,CTT 

c 

c wall layups 

c 

readC 10, 101 )MWT,MWB,MWC 
do 10 i= 1 , MWT 

readC 1 0, 1 05) j , NWTC j) ,TTCj) , ATCj) 

10 continue 

readC 10 , 106)blk 
do 11 i= 1 ,MWB 

read C 1 0 , 1 0 5 ) j , NWB C j ) , BT C j ) , AB C j ) 

11 continue 

readC 10 , 106 )blk 
do 12 i=l , MWC 
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r> o 


read(10,105) j,NWC( j) ,CT( j) ,AC( j) 

12 continue 

return 
end 
c 

c Read material input from exising file tmat.dat 

c 

SUBROUTINE yall 

common /tgeom/ A, B,PH,PL ,NW,K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND,MS 
common /bmat/ NMAT ,E1(3,7),V1(3,7),G1(3,7),NF 
c * T(3,6),C(3,6),SH(3,6),F (3,6) 

common /taml/ AHLSC6 , 6) , AMLA(6 ,6) ,AMLT(6) ,DA 

common /twall/ MWT , MWB,MWC, NWT (99) ,NWB(99) , NWC(99) , TT(99) ,BT(99) , 
*CT (99) , AT ( 99 ) , AB( 99 ) , AC( 99 ) 
common /load/ XL ( A ) , SL ( A ) , XE , XS , SE , SS , TMPD 
common /name/ nmt 
character*l tok 
character nmt*50 
dimension nmt(7) 

TMAT.dat (unit 11) 

open( uni t= 1 1 , status= ' old ' , f ile = 1 tmat . dat 1 ) 

101 f ormatCf 19 1 3) 

102 format(i5) 

103 format(3f 19 . 3) 

104 format(3i5) 

105 f ormatC i5 ,2f 19 . 3) 

106 format(al) 

107 format(f9.5) 

108 f ormat ( f 1 2 . 3 ) 

109 format(aSO) 

readC 11,1 02) NMAT 
do 12 i=l,NMAT 

read ( 1 1 , 1 09 )nmt ( i ) 

readC 11 , 103)E1( 1 j i ) ,E1 ( 2/i ) , El (3 , i ) 
read( 11 ,103)Gld,i) ,Gl(2,i),Gl(3,i) 
read(ll >103)VlCl J i) / Vl(2,i),Vl(3,i) 

readC 11 , 106 ) tok 

12 continue 

if (NBC. eq. 2. or . NBC . eq . 5) then 
NTEMP=7 

read(ll , »(i2) ')NF 
readd 1 ,109)nmt(7) 

read (11 ,103)E1(1 , NTEMP) , El (2, NTEMP) , El (3, NTEMP) 
read (11 ,103)61(1, NTEMP) ,G1 (2 , NTEMP) ,G1 (3 , NTEMP) 
read (11 ,103)V1(1 , NTEMP) ,V1(2,NTEMP) , VI (3, NTEMP) 
read( 1 1 , 1 06 ) tok 
else 

continue 

endif 

c 1 ' 

c tmat.dat ( uni tl 1 ): load 

c 

do 13 i = l,4 

read (11 ,108) XL (i) 
read(ll ,l08)SL(i) 

13 continue 
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writer ,*) 1 * 
readC 11 , 107)DA 


c tmat.dat (unitll):AML parameters, 
c 

do 14 j=l , NMAT 

read( 1 1 , 1 07 ) ( AMLAC i,j),i s l,6) 
read ( 11,1 07 )CAMLS(i f j),i=l,6) 
c read(ll,107)AMLT(j) 

readC 11 , 1 06) tok 
14 continue 

return 
end 


c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 

X 

c 


c 


c 


c 


c 


c 

A= 

c 

B= 

c 

PH 

c 



Read geometry input interactively 
SUBROUTINE nalO 

common /tgeom/ A , B , PH , PL , NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 
common /bmat/ NMAT , El (3, 7 ) , VI ( 3 , 7 ) ,61(3,7) , NF 
* T(3,6),C(3,6),SH(3,6),F(3,6) 

common /taml/ AMLS(6 , 6) , AMLAC6 ,6) , AMLTC6) ,DA 

common /twall/ MWT , MWB , MWC , NWT( 99 ) , NWB( 99 ) , NWC( 99 ) , TT< 99 ) , BTC 99 ) , 
*CT (99), AT (99), AB (99), AC (99) 
common /load/ XL(4) ,SL(4) , XE , XS , SE , SS , TMPD 
character*! yn 


A= bottom width of the tube * 

B= top width of the tube * 

PH= thickness of panel * 

PL= length of panel * 

NW = number of tubes (whole tubes) * 

NBC = boundary condition indicator * 

NBUC = fine or coarse mesh indicator * 

X 

[ Composite Wall Layups ] X 

number of plies for the top sheet = MWT X 

number of plies for the bot. sheet = MWB X 

number of plies for the tube wall = MWC X 

type of material for top sheet = NWT(MWT) X 

type of material for bot. sheet « NWB(MWB) X 

for tube wall = NWC(MWC) X 

the top sheet * TT(MWT) X 

the bottom sheet = BT(MWT) X 
the tube wall = CTCMWC) X 

of the top sheet = AT (MWT) x 

of the bot. sheet = AB(MWB) x 

of the tube wall = AC(MWC) X 


type of material 
ply thibkness of 
thickness of 
thickness of 
orientation 
orientation 
orientation 


ply 

ply 

ply 

ply 

ply 


create input for tgeom.dat (unitlO) 


default values 


one 
L.O 
0.5 
) . 5 
0.5 


inch wide at the tube bottom 
inch wide at the tube top 
inch thickness for the panel 


5. inch panel length 
PL = 5 . 
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c 5 tubes in the width direction 

NW=5 

c 5 elements in the length direction 

K = 5 

c simple stress analysis 

NBUC=1 

c infinite panel b. c. 

NBC= 1 

c number of plies for bottom face sheet 

MWB = 4 

c number of plies for top face sheet 

MWT = 4 

c number of plies for tube core 

MWC=4 
C 

do 10 i=l,16 
ATC i ) =0 . 

AB( i ) =0 . 

ACC i ) =0 . 

10 continue 
TCT=0 . 0 
BCT=0 . 0 
CTT = 0 . 0 
c 

101 formatC 1 Input Top Width of the Tube ( f ,f 10 . A , 1 in . ) >>*$) 

102 formatC* Input Bottom Width of the Tube C • ,f 10 .4, 'in. ) »*$) 

103 formate* Input Height of the Tubes C ' ,f 10 .4, 'in. > »*$) 

104 formate* Input Length of the Panel C * ,f 10 . 4 , *in . ) >>*$) 

105 formatC' Input Number of Tubes in the Width Direction CY) C* 

*,i2,’) »'$) 

c 

writeC6,’C*' x**Geometric Parameter Inputs**** ')' ) 
writeC6,*)* * 

writeC6,*C'' Input 1) for Stress Analysis. **)*) 
writeC6,'C'* 2) for Buckling Analysis . 1 *)' ) 

writeC6,'C' f 3) for Post Buckling Analysis .'')* ) 

writeC 6 , * ( * ' Enter >> **$)*) 

C 

call NINTGC 1 , NBUC) 

TAR=0 . 

ND=0 
NDF = 0 
MS=1 0 . 

C 

if C NBUC . eq .3) then 
writeC6,*)* ' 

writee6,*e*' Input Target Point Info. >>'*)*) 

writee6 / *e'' Type of target 0> Load Factor. *•)') 

writeC 6 # * C ' ' l-6> Displacement 1 to 6.*')') 

writeC 6 , * C ’ ' Enter»* *$)*) 

call NINTGC 1 , NDF) 

writeC 6 , * ) * * 

if CNDF.ge.l) then 

writeC6,'C*' Node Number specif ication . '•) 1 ) 
writeC 6 , • ( * ' Enter Node #>>**$)*) 

call NINTGC 1 ,ND) 
endif 

writee6,*)* * 

writeC6 / 'e'' Enter Target Point »**$)*) 

call NREAL(l.TAR) A-150 


elseif (NBUC . eq . 2) then 
write C 6 , *) 1 1 

wri te( 6 , 1 ( 1 1 How many MODE shapes do you want (Max. 50)? >>•■$) 

*') 

call NINTG(1,MS) 
endif 
C 

writeC 6 , X) * 1 

writeC 6 , 1 01 )B 
call NREAL ( 1 , B ) 
write(6 , 102)A 
call NREAL C 1 , A) 
writeC 6 , 1 03) PH 
call NREALC 1 , PH) 
wri te( 6 , 1 04 ) PL 
call NREALC 1 , PL) 
writeC 6 , 105)NW 
call nintg(6,NW) 
writeC 6 ,*) f 1 

writeC 6,' (*■ Input Boundary Conditions for the Panel . 1 f )* ) 
writeC 6 , ' ( 1 f 1-Infinite Panel. ")') 

write^i'C 11 2-Sides Simply Supported, (with Filler Material; ends 
* free) 1 • ) 1 ) 

write^^C' 1 3-Sides Simply Supported. Cw/o Filler Material; ends 
*f ree ) 1 1 ) 1 ) 

write^^'C*' 4-Ends Clamped; w/o Filler at the Sides. (Sides Free) 
*' f ) f ) 

write^^C 11 5-Ends Clamped; with Filler at the Sides. (Sides Free 
*) ,, ) f ) 

write^^C** Select Your Choice >>•*$)•) 
call NINTGC 1 , NBC) 
write(6,*)' * 
return 
end 
c 

C Read material input interactively 

c 

SUBROUTINE nail 
C 

common /tgeom/ A , B , PH , P L , NW , K , NBC i NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 
common /bmat/ NMAT,E1(3,7) ,V1(3,7),G1(3,7),NF 
c * T(3,6),C(3,6),SH(3,6),F(3,6) 

common /taml/ AMLSC 6 , 6 ) , AMLAC 6 , 6) , AMLTC 6 ) , DA 

common /twall/ MWT,MWB ,MWC,NWTC99) ,NWB(99) ,NWC(99) ,TT(99) , BTC 99) , 
*CT(99) ,AT(99) , ABC 99) , ACC 99) 
common /load/ XL ( A ) , SL C A ) , XE , XS , SE , SS , TMPD 
common /name/ nmt 
character*! tok,yn 
character nmt*50 
dimension nmt(7) 
c 

c NMAT--number of materials used, (excludes filler material) 

c EC i , j) - -elastic moduli, 

c VCi, j)--Poisson , s ratio, 

c GCi ,j)--shear moduli, 

c AMLSCi, j)--AML curve shear allowable, 

c AMLAC i , j )- -AML curve angle, 

c AMLT(i)-- AML curve temperature, 

c XL(i)--axial loads. 

SL(i)--shear laods. 


c 
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c 

c Material Number >>7<< is reserved for the Filler Material xxx 

C 

c create input for tmat.dat Cunitll) 

c 

c default values for matl 

c 

c Elastic & Shear Moduli. 

C 

do 10 i = l ,7 

El ( 1 , i) = 1000 . 

El ( 2 , i ) = 1 000 . 

El(3,i)=1000. 

G1 e 1 , i ) = 1 000 . 

G1 e 2 , i ) = 1 000 . 

Gl(3,i)=1000. 

VI ( 1 ,i)=0 . 300 
VI e 2 , i ) = 0 . 300 
VI ( 3 , i ) =0 . 300 
10 continue 
c 

101 formatC 1 Input Information for Mat. 1 ,!,* >>') 

102 formatC 1 Input Elastic Moduli: Ell e*,f8.2,') E22 e*,f8.2, 

x *) >>*$) 

103 formate* Input Shear Moduli: G12 e*,f8.2,') G23 ( v ,f8.2 f 

* ') G31 e * ,f8.2 # *) >>'$) 

1 04 formate* Input Poisson****s Ratio: V12 e*,f8.6,*) >>*$) 

105 formateal) 

106 formate' Input AML Paramters for Material * ji2,* >>*) 

107 formate' Point *,il,*-- Angle (Degree) and Strain Allowable. ') 

108 formate* Naihe eNo More Than 50 Characters) >>*$) 

109 format(aSO)* 

c f 

writee 6 ,x) * ' 

wri tee 6 , * e " XXXXXXX**XXXXXREMINDERXXX****X****XX*» ' ) ' ) 
write(6,*e'' xxpiease Keep the Total Number of Materials * ')* ) 
write(6 / •( ,, (Excluding Filler Material) at Maximum of 6**'' 

*)') 

wri tee 6 , X ) 1 • 

write(6,*(*' Input No. of Materials Used . e Exclude Filler Material) 
x>>* *$) * ) 

call NINTG(1,NMAT) 

writeC6 ,x) 1 ' ■ 

C 

do 20 i=l , NMAT 
wri tee 6 , 1 01 ) i 
write(6,X)* • 
wri tee 6 ,108) 
read e 5 , 1 09 )nmte i ) 
write(6,X)* 1 

wri te( 6 , * ( * * Input Elastic Moduli: E11,E22 >>**$)') 
call NREAL(2,El(l,i),El(2,i)) 

write(6,X)* * 

write! 6 , * ( ' * Input Shear Moduli: G12,G23,G31 » ,, $) f ) 
call NREAL(3,Giei,i),Gie2,i),Gl(3,i)) 
writee6,*) f ' 

write(6, , (*' Input Poisson l,,, s Ratio: V12 >>*'$)') 
call NREALei ,V1(1 ,i) ) 
write(6,x) 1 ■ 

20 continue 
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c 


if ( NBC . eq . 2 . or . NBC . eq . 5 ) then 

writeU^C* ***Filler Mater ial*** 1 *)• ) 

NTEMP=7 

write (6,101) NTEMP 
write(6,*)* * 
write( 6 , 108 ) 
read ( 5 ,109 )nmt ( 7 ) 
wri te ( 6 , *) ' 1 

write(6, , ( ,f l)Isotropic. 2)0rthotropic . * f ) * ) 
write( 6 , * ( • • Select >> ,, $)') 
call nintg(l,NF) 
writeC 6 , * ) 1 1 

C 

if (NF.eq.l) then 

write(6, , ( ,f Input Elastic Modulus: E Cpsi). >> ,, $) f ) 
call nreal(l,El(l, NTEMP)) 
writeC 6 , *) 1 1 

write(6,'( ,r Input Poisson ,,,, s ratio. >> f, $)*) 
call nreal(l,Vl(l, NTEMP)) 
write(6,*) 1 1 

elseif (NF.eq.2) then 

writeC 6 , 1 ( ' • Input Elastic Moduli: E11,E22,E33 Cpsi )>> 1 1 $ ) f ) 
call NREAL(3,E1(1 , NTEMP) , El ( 2 , NTEMP) , El ( 3, NTEMP) ) 
writeC 6 , *) 1 1 

wri te( 6 , 1 ( 1 1 Input Shear Moduli: G12,G23,G31 (psi)»"$) f ) 
call *lREAL(3,Gl(l , NTEMP) ,G1( 2, NTEMP) ,G1( 3, NTEMP) ) 
writeC,*) 1 1 

writeC 6 , 1 ( 1 1 Input Poisson***^ Ratios: V12,V23,V31 >>•*$)•) 
call NREALC3,V1(1,NTEMP),V1C2,NTEMP),V1(3, NTEMP) ) 
writeC 6 , * ) f 1 
endif 
else 

continue 

endif 

C 

DA= 0 . 

21 write(6, , C ,, Do You Want to use the AML Failure Criterion? [Y 
*or N) >>*•$)•) 
readC 5 , 1 05 ) tok 

if ( ( tok . eqf. ' Y 1 ) . or . ( tok .eq . 'y')) then 
DA=1 . 

write(6,*)' 1 

writeC 6, ?( ,f Input AML Parameters i 1 *) 1 ) 

write(6,C( fi ***for further definition, please consiult the user 
*' f f 's manual .***' • )•) 
write(6,*)' 1 
do 22 k=l , NMAT 
wri te( 6 , 1 06 )k 
write(6,*)* 1 

write^,^ 11 *** Tension Strain Values X** 11 ) 1 ) 
do 23 1=1,6 

write(6, 107)1 

writeC6, , C ,, Enter Angle, (deg.) >> ,, $) 1 ) 
call nreal ( 1 , AML AC 1 ,k ) ) 

write(6, t ( f, Enter Strain Allowable. >> f, $) f ) 
call nreal ( 1 , AML SC 1 ,k ) ) 
write(6,*) f 1 
if (l.eq.3) then 

write^^'C 1 ' *** Compression Strain Values ***** 
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*) ' ) 


endif 

23 continue 

write(6,*) f * 
write(6,*) f ' 

22 continue 

el seif ( ( tok . eq . 1 N 1 ) . or . ( tok . eq . 1 n f ) ) then 
DA=0 . 

do 24 i=l ,NMAT 
do 25 j=l,6 

AMLSCi, j)=0 . 

AMLA( i , j ) = 0 . 

25 continue 

24 continue 

else 

write(6, , ( ,i Error: Wrong Character Inputted !!! ' * ) ' ) 
write(6,*)* * 

go to 21 
endif 
c 

117 formatC' Input No. of Plies for Top Face Sheet e*,i3, 

*') >>’$) 

118 formatC' Inj^ut No. of Plies for Bottom Face Sheet e*,i3, 

*') >>•$) ( 

119 f ormate 1 Input No. of Plies for Tube Core (',13,') >>'$) 

120 formate' Input Material Numbers for Top Face Sheet Lay-up >>') 

121 formate* Input Material Numbers for Bottom Face Sheet Lay-up >>') 

122 formate* Input Material Numbers Tube Core Lay-up>>') 

123 formatC* Ply Number *,i2,' >>*$) 

124 formate * Input Thicknesses for Top Face Sheet Lay-upein.) >>') 

125 formate' Input Thicknesses for Bottom Face Sheet Lay-upein.) >>') 

126 formate* Input Thicknesses for Tube Core Lay-up(in.) >>') 

127 formate* Is it the Same for All Plies? [Y or N] >>*$) 

128 formateal) 

129 formate* Input Parameter for the Lay-up: (Enter *,i2,' Numbers):*) 

130 formate* Enter >>'$) 

write(6, l ('* ***Wall Layup Information Input**** * ) * ) 
writeC 6 , *) ' ' 
c 

c Input Number of Plies for Top, Bottom and Core Wall 

c 

writee 6 , *) ' * 
write( 6 ,117)4 
call nintg( I , MWT ) 
writeC 6 , *) * *• 
writee 6 ,118)4 
call nintge 1 , MWB) 
writee 6 , *) * * 
writee6, 119)4 
call nintge 1 ,MWC) 
writee6,*)' * 
c 

c Wall Composition Input 

c Top Face Sheet 

c 

c Top Wall Ply Material Number 

writee 6 , 120) 
writee 6 , *) ' ' 
write(6 , 127) 
readC 5 , 128)yn 
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write(6 / *)’ 9 

if (yn . eq . * Y 1 .or.yn.eq. f y 1 ) then 
write^'C 11 Enter >> ,, $)') 
call nintg( 1 , NWT ( 1 ) ) 
do 35 i=2 ,MWT 
NWT ( i ) =NWT ( 1 ) 

35 continue 

wri te( 6 , *) * 1 
else 

wr ite ( 6 , 1 29 )MWT 
do 36 i = l , MWT 
writeC 6 , 130 ) 
call nintg( 1 , NWTC i) ) 

36 continue 
write(6,*) f * 

endif 

c Top Wall Ply Thicknesses 

writeC 6 , 12A) 
write(6 / *) f 9 
write(6 ,127) 
read( 5 , 128 )yn 

if (yn . eq . 9 Y* . or . yn . eq . *y 9 ) then 
wri te( 6 , 1 ( * 1 Enter >>•»$)•) 
call nreal(l , TT( 1 ) ) 
do 37 i=2 , MWT 
TT(i )=TT ( 1 ) 

37 continue 
write(6,*) f 9 

else 

writeC 6 , 129 ) MWT 
do 38 j=l , MWT 
wri te( 6 , 130 ) 
call nreal ( 1 ,TT( j ) ) 

38 continue 
write(6,*) f 1 

endif 

c Top Wall Ply Orientations 

writeC 6 , 9 ( 9 9 Input Orientations of Plies for Top Face Sheet (deg.) 
*>>»')') 
writeC 6 , *) ' • 
wri teC 6 ,127) 
readC 5 , 128 )^n 
writeC6 ,*) 9 9 

if (yn .eq. 'Y f .or .yn.eq. f y 9 ) then 
wri te( 6 , 1 ( ' * Enter >> ,, $)*) 
call nrealC 1 , AT ( 1 ) ) 
do 39 i=2 , MWT 
ATC i ) =AT ( 1 ) 

39 continue 
writeC6,*)* 9 

else 

wri te( 6 , 129 )HWT 
do Aq j=l ,MWT 
writef6 , 130 ) 
call nrealC 1 , ATC j) ) 

AO continue 

write(6,*) f 9 
endif 


c 


Bottom Face Sheet 
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Bottom Wall Ply Material Numbers 
write( 6 ,121) 
write(6,*) f * 
write(6 , 127 ) 
readC 5 , 128 )yn 
wr iteC 6 , *) * * 

if ( yn . eq . 1 Y 1 .or. yn . eq . • y ' ) then 
writeC 6 , 1 ( 1 * Enter >> f, $) f ) 
call nintgC 1 , NWBC 1 ) ) 
do 41 i=2 ,MWB 
NWB(i)=NWB(l) 
continue 
write(6,*) f 1 
else 

write (6,129 )MWB 
do 42 j=l,MWB 
wri te( 6 , 130 ) 
call nintgC 1 , NWBC j ) ) 
continue 
writeC 6 , *) * f 
endif 

Bottom Wall Ply Thicknesses 
writeC 6 , 125 ) 
writeC 6 , *) * f 
writeC 6 , 127 ) 
readC 5 , 128)yn 
write(6,*) f 1 

if (yn.eq. * Y 1 .or .yn.eq. V) then 
wri te( 6 , * ( 1 1 Enter »''$)') 
call nreal ( 1 , BT( 1 ) ) 
do 43 i-2 , MWB 
BT(i)=BT(l) 
continue 
write(6,*)* 1 

else 

writeC 6 , 129 ) MWB 
do 44 j=l,MWB 
writeC 6 , 130 ) 
call nrealC 1 , BTC j) ) 
continue 
write(6,*)* ' 

endif 

Bottom Wall Ply Orientations 

writeC 6 , ' ( ' 1 Input Orientations of Plies for Bottom Face Sheet Cde 

*g.) >>")•) 
write(6,*) r 9 
writeC 6 , 127 ) 
readC 5 , 128 )yn 
write(6,*) f * 

if (yn.eq. f Y f .or. yn.eq. f y') then 
wri teC 6 , # ( * 1 Enter »••$)») 
call nrealC 1 , ABC 1 ) ) 
do 45 i=2 ,MWB 
ABC i )*ABC 1 ) 
continue 1 
write(6,i) f 1 
else 

writeC 6,129 )MWB 
do 46 j- 1 » MWB 
write(6 , 130) 


call nrealCl , ABC j) ) 

46 continue 

write(6 ,*) 9 1 
endif 
c 

c Tube Core 

c 

c Core Wall Ply Material Numbers 

write(6,122} 
wri te( 6 , *) 9 ■ * 
write (6,127) 
readC 5 , 128 )yn 
write(6 ,#) 9 . f 

if Cyn.eq. 'Y f .or.yn.eq. •y 1 ) then 
wri te( 6 , 1 ( • \ Enter »*»$)■) 

call nintgC 1 , NWCC 1 ) ) 
do 47 i = 2 , MWC 
NWCC i ) =NWC( 1 ) 

47 continue 
write(6 / *) 1 ■ 

else 

wri teC 6 , 129 )MWC 
do 48 k = 1 , MWC 
writeCSjlJO) 
call nintgC 1 , NWC(k) ) 

48 continue 
write(6,*) f 9 

endif ‘ 

c Core Wall Ply Thicknesses 

write(6,126) 
writeC6,K) f 9 
wri te( 6 , 127 ) 
readC 5 , 128)yn 
write(6,x) • 9 

if (yn.eq. 'Y' .or .yn.eq. 'y' > then 

write(6, r (»» Enter »•*$)*) 
call nreal ( 1 ,CT( 1 ) ) 
do 49 i=2,MWC 
CT(i)=CTCl) 

49 continue 
write(6,*)' » 

else 

writeC 6 , 129 )MWC 
do 50 k=l ,MWC 
write(6 , 130) 
call nreal( 1 ,CT(k ) ) 

50 continue 
write(6,*)* ' 

endif 

c Core Wall Ply Orientations 

^write(6,'('» Input Orientations of Plies for Core Wall (deg. 

write(6 ,*) • • 
writeC 6 , 127 ) 
readC 5 , 128)yn 
write(6 ,*) • f 

if Cyn.eq. *Y' .or. yn.eq. 'y') then 

write(6, ' ( • * Enter >>"$)') 
call nrealC 1 , ACC 1 ) ) 
do 51 i=2,MWC 


>> • » 
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51 


52 


c 

c 

c 


53 

c 

c 

c 


54 

c . . . 
c . . . 
c . . . 


55 


c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


10 


ACC i ) =AC( 1 ) 
continue 
writeC 6 , *) * 1 
else 

writeC 6 , 1 29 )MWC 
do 52 i=l,MWC 
writeC 6 ,130) 
call nreal ( 1 , ACC i ) ) 
continue 
writeC6,*)' ' 
endif 

writeC 6 , *) 1 * 

Top Face Sheet Thickness 

do 53 i=l ,MWT 
TCT=TCT+TT C i) 
continue 

Bottom Face Sheet Thickness 

do 54 i=l , MWB 
BCT = BCT+BT C i ) 
continue 

Core Wall Thickness 

do 55 i ^ 1 , MWC 
CTT =CTT+CT C i ) 
continue 
return 
end 

loads input 
SUBROUTINE TLOD 

common /tgeom/ A,B ,PH,PL , NW,K , NBC, NBUC ,TCT , BCT ,CTT , TAR , NDF , ND ,MS 
common /bmat/ NHAT ,E1C3,7) ,V1(3,7) ,G1(3,7) ,NF 
* TC3,6),CC3,6),SHC3,6),F<3,6> 

common /taml/ AMLSC 6 , 6 ) , AMLAC 6 , 6 ) , AHLTC 6 ) , DA 

common /twall/ MWT ,MWB ,MWC,NWTC99 ) , NWB(99) .NVICC99) ,TTC 99) , BT(99) , 
*CT (99), AT (99), AB (99), AC (99) 
common /load/ XL(^ ) jSL(^)iXEiXSiSEiSSjTMPD 

XLC1),XLC3) — Axial Loads at the Sides. 

XLC2) ,XL(4) -- Axial Loads at the Ends. 

XE -- Total Axial Load on the End. 

XS -- Total Axial Load on the Side. 

SE -- Total Shear Load on the End. 

SS -- Total Shear Load on the Side. 

TMPD -- length of the ends. 

PL -- length of the sides. 

TMPD=(A+B)/2.*(NW+1) 
do 10 i = l ,& ' 
write(6,'(" •’)•) 
continue 

writeC 6 » * C ' ' Apply loads to the model : "l* ) 

writeC 6,* (*' Load may be input as total load or as an average 

xline load . ' ' ) ' ) 
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wri te( 6 , ' ( 1 1 How would you like to input loads? ,, ) , ) 

write C 6 , • C * * l>Total Load.'')') 

write ( 6 , 1 ( • * 2>Line Load. ,, ) , ) 

wri te( 6 , ’ ( 1 1 Enter 

call nintg(l,N) 

write(6,*)* * 

if ( N . eq . 1 ) then 

write^,^* 1 Total Tensile (+) or Comppressive (-) Load (lb 

*.) on the Ends. 1 *) 1 ) 

wr i te ( 6 , 1 ( * 1 Enter >> ,f $)') 

call nrealCl ,XL(2) ) 

XL(2)=XL(2) /THPD 
XL ( 4 ) =XL ( 2 ) 
writeC 6 ,*) 1 1 

wri te( 6 , 1 ( 1 1 Total Tensile ( + ) or Comppressive (-) Load (lb 

*.) on the Sides. ,, ) , ) 

write ( 6 , 1 ( * f Enter » f, $) f ) 

call nrealCl , XLC 1 ) ) 

XL ( 1 ) = XL ( 1 )/pl 
XL ( 3 )=XL ( 1 ) 
write(6,*)' ' 

write(6, f ( ,# Total Shear Load (+ CCW and - CW) ( lb . ) • f ) * ) 

writeC 6 , ' ( * 1 1) On the Ends . 1 1 ) * ) 

write(6, f ( ,f 2) On the Sides. ,f ) r ) 

write ( 6 , 1 ( ’ ' Enter >> ,, $) f ) 

call nintg(l,I) 

writeC 6 , *) * 1 

if (I.eq.l) then 

writeC 6 , 1 ( * ' Shear Load on the Ends = •»$)') 

call nreal( 1 ,SL(2) ) 

SL ( 2 ) -SL ( 2)/TMPD 
SL ( 4 ) =SL (2) 

SLC 1 )=SL( 2) 

SL ( 3) =SL(2) 

write(6,*) f 1 

else 

write ( 6 , * ( * f Shear Load on the Sides = '■$)•) 

call nrealCl, SL(1)) 

SL ( 1 )=SL( 1 )/pl 
SLC 3) = SL( 1 ) 

SLC 2 ) = SL ( 1 ) 

SL ( 4 ) = SL ( 1 ) 

write(6 # *) f 1 
endif 

el seif (N .eq . 2) then 

writeCbj'C 11 Input Tensile (+) or Compressive (-) Line Load 

* on the Ends. (lb. /in) 

write^/'C'' Enter >> ,, $) f ) 

call nrealCl, XLC2)) 

XL(4)=XL(2) 
write(6,*) f ' 

wri teC 6 , * ( f 1 Input Tensile ( + ) or Compressive ( - ) Line Load 

* on the 1 Sides, (lb. /in) »")•) 
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write C 6 , ' ( ' ' Enter >>"$)’) 

call nrealC 1 ,XL( 1 ) ) 


XL( 3) = XL( 1 ) 
write ( 6 , * ) 1 * 

writeC6 i f ( ,, Input Shear Line Load (lb. /in) 

writeC 6 , * ( * ' Enter »"$)•) 

call nreal ( 1 , SL ( 1 ) ) 

SL( 2)=SL( 1 ) 

SL ( 3) =SL ( 1 ) 

SL( 4 ) =SL( 1 ) 
write(6,*)' ' 

endif 

write(6,*)' ' 

write(6,*)' 1 

return 
end 

Record data in tgeom . date unitl 0 ) and tmat .datCunitll ) 
SUBROUTINE tsave 

common /tgeom/ A , B , PH , PL , NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 
common /bmat/ NMAT>E1(3#7) ,V1(3#7) jGl(3, 7) jNF 
x T(3j6)«C(3#6)jSH(3*6)jF(3»6) 

common /taml/ AMLS( 6 , 6 ) , AMLAC 6 f 6 ) $ AMLTC 6 ) >DA 

common /twall/ MWT ,MWB ,MWC , NWTC99) > NWBC99) , NWCC 99 ) , TT( 99 ) , BT ( 99 ) , 
XCTC99) , ATC 99 ) , ABC 99 ) , ACC 99 ) 
common /load/ XL ( A ) » SL ( 4 ) » XE » XS $ SE , SS , TMPD 
common /name/ nmt 
character blk 
character nmt*50 
dimension nmt(7) 

OPEN tgeom.dat & tmat.dat 

open ( uni t=10,status= 'unknown' ,file= 'tgeom.dat ' ) 

openC unit= 1 1 , status= 1 unknown ' ,f ile= ' tmat .dat ' ) 

rewind(lO) 

rewind! 11) 

blk= 1 ' 


101 format(3i3) 

102 f ormatC 3f 19 . 9 ) 

103 f ormat(4f 10 . 5) 

104 format(4i5) 

105 format! IX , i2,lx,i2,lx,f7 . 5,lx,f7 .2) 

106 f ormatCal ) 

107 format(f9.5) 

108 formatCIS) 

109 f ormatC 3f 19 . 3) 

110 formate 3i5 ) 

111 format (i5,2f 19.3) 

112 f ormat(3f 9 . 5) 

113 f ormatCf 12 . 3) 

114 format(i2) 

115 format(a50j 

116 f ormatCf 12 . 5 ,3i3) 


save and update files 


c 


tgeom.dat (unitlO): geometry 


c 
c 

write(10,103)A,B,PH,PL 
write ( 10,109)NW,K,NBC,NBUC 
write (10, 116)TAR, NDF , ND , MS 
write ( 10, 112)TCT,BCT,CTT 


c wall layups 


write ( 10,101 )MWT ,MWB , MWC 
do 10 i=l , MWT 

write (10, 105)i, NWT (i),TT(i),AT(i) 

10 continue 
writeC 10, 106)blk 
do 11 i=l ,MWB 

write(10,105)i, NWBCi ),BT(i),AB(i) 

11 continue 

write ( 10,106)blk 
do 12 i = 1 , MWC 

write(10;i05)i,NWC(i),CT(i),AC(i) 


12 continue 

c * 

c tmat.dat (unitll): material 

c 


write ( 11 , 1 08 )NMAT 
do 13 i=l , NMAT 

writedl , 1 15)nmt( i ) 
write (11, 109)El(l,i),El(2,i),El(3,i) 
writedl ,109)G1(1 ,i) ,Gl(2,i) ,Gl(3,i) 
write(ll,109)Vl(l,i),Vl(2,i) ,Vl(3,i) 
writedl, 106)tok 
13 continue 

if ( NBC . eq . 2 . or . NBC . eq . 5) then 
NTEMP=7 

writedl , 119)NF 
writedl ,11 5 )nmt ( 7 ) 

writedl ,109)E1(1 ,NTEMP) ,E1(2,NTEMP) ,E1(3,NTEMP) 
writedl yl 09 )G1 (1 , NTEMP) ,G1 (2, NTEMP) ,G1(3 .NTEMP) 
write (11 ,109)V1(1 , NTEMP) ,V1 ( 2, NTEMP) , V1(3,MTEMP) 
writedl , 106)tok 
else 

continue 

endif 


c tmat.dat ( unitl 1 ) : load 


do 19 i=l,9 

writedl, 113)XL(i) 
writed 1 , 113)SL(i ) 

19 continue 

writedl, 107)DA 
do 15 j=l , NMAT 

writedl ,107) (AMLA(i, j),i=l,6) 
writedl ,107) (AMLS(i , j) ,i = l ,6) 
c writedl, 107)AMLT(j) 

writedl , 106)tok 
15 continue 

close(unit=10) 

close(unit=ll) 
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c 


return 

end 


C interactive listing of the paramerters 

c 

SUBROUTINE tlis 

common / tgeom/ A , B , PH , PL , NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 
common /bmat/ NMAT#E1C3»7) <W1(3»7) »G1(3#7) ,NF 
c * TC3,6),CC3,6),SHC3,6),FC3,6) 

common /taml/ AMLSC 6 , 6 ) , AMLAC 6 , 6 ) , AMLT( 6 ) , DA 

common /twal 1/ MWT , MWB , MWC , NWT ( 99 ) , NWB( 99 ) , NWCC 99 ) , TT ( 99 ) , BT ( 99 ) , 
*CTC99) , ATC99) , ABC 99 ), ACC 99) 
common /load/ XLCA) /SLC A) ,XE#XS/SE*SS/TMPD 
common /name/ nmt 
character tok 
character nmt*50 , type*15 
dimension nmt(7) 
c 

101 formatC 1 Width at the Tube Bottom = ' , ffl . 3 , ' in . ' , / # 

Width at the Tube Top= 1 , f 8 . 3 , • in . 1 ) 

102 formate 1 Material Number: ',i2) 

103 formatC' Number of Tubes =',i2) 

104 formatC' El 1 e psi ) = ' , f 13 . 1 , 2x , ’ E22Cpsi ) * * , f 13 . 1 ) 

105 formate ' G12Cpsi)= ' ,f 13 . 1 ,2x, 'G23epsi)= ' ,f 13 . 1 ,2x , 

* ' G31 epsi ) = ' , f 13 . 1 ) 

106 formate' V12= * ,f 7 . 5) 

107 formate* Ply Number ' , 1 2 , / , ' Material Number i2 , 2x , 

*/,* Ply Thicknesse in)= ' ,f 7 . 5,2x ,/ , 

X* Ply Anglee degree )= ' ,f7 .2) 

108 formate* Panel Length, PL= ' , f 9 . 3 , * in . * , / , 

x' Total -'Height of the Panel= 1 , f 12 . 6 , * in . * , / , 

X' Tube Height , PH= * , f 9 . 3 , 1 in . * ) 

109 formatC' * * 

110 formate* Top Cover Sheet Thickness= * , f 9 . 6 , ' in . * ) 

111 formate' Bottom Cover Sheet Thickness* ' 9 . 6 , * in . ' ) 

112 formatC' Tube Wall Thickness* * , f 9 . 6 , ' in . * ) 

113 formate' Point ',i,' AngleeDegree)= * ,f 6 . 2 , ' Strain Allowable-' 

* , f 9 . 5 ) 

C 

115 formatCal) 

116 formate' Axial Line Load on the Ends. eib./in)=' ,f 12.3,/, 

x* Total Axial Load on the Ends, e lb . )= * *f 12 .3) 

117 formate' Axial Line Load on the Sides, e lb. /in)= ' ,f 12 . 3,/, 

Total Axial Load on the Sides. ( lb . )= * >f 12 . 3) 

118 formatC* Shear Line Load eib./in)=' ,fl2.3,/, 

f Total Shear Load on the Ends, e lb . )= ' >f 12 . 3 ,/ , 

Total Shear Load on the Sides. C lb . ) s ' #f 12.3) 

119 formate ' Ell epsi ) = * ,f 13 . 1 ,2x, ' E22epsi ) = * ,f 13 . 1 , 2x, *E33epsi)- * , 

*f!3.1) 

120 formate • V 12 = * , f 7 . 5 , 2x , ’ V23= * , f 7 . 5 , 2x , 'V31=* ,f7.5) 

121 formate' Panel Width = * , f 8 . 3 , ' in . ' ) 

122 formate* E(psi)= 1 , f 13 . 1 , * V-',f7.5) 

123 formate* Material Name = ',a50) 

124 formate' Target Type >>',al5,' Target Point = *,fl2.3) 

125 formate' Target Type >>',al5,i2,' Node=*,i4,' Target Point 

* ,f 12 . 3) 

c . . . 

c list files 


c 


wdth=CA+B)/2.*CNW+l) 
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10 


writeC 6 , ' ( ' ' 
wri te( 6 , * C * * 
writeC6, 'C • ' 
wri te( 6 , ' C ' 1 
writeC 6 , ' C ' 1 
writeC 6 , * C ' ' 
writeC 6 , r ( * ' 
call nintgCl,N) 


Choose the Info, to be Listed: 1 ') 1 ) 
l>Panel Geometry . , ')' ) 

2>Material Data. ")') 

3>Wall Layups. ' ')') 

4>Load . ")' ) 

5>Continue .'*)') 

Enter>> •'$)') 


tgeom.dat CunitlO): geometry 


if ( N . eq . 1 ) then 
wri teC 6 , X) ' ' 
write C 6 , 1 01 ) A , B 
wri te( 6 , 1 03 ) NW 
writeC 6 , 121 )wdth 
tmp=PH+TCT+BCT 
writeC 6 , 1 08 ) ABSC PL ) , tmp , PH 
writeC6,110)TCT 
wri te( 6 ,111) BCT 
wri te( 6 , 1 12 )CTT 
ifCNBC.eq.l) then 

writeC6,'C" Boundary Condition: Infinite Panel. ")') 

elseif C NBC . eq . 2 ) then 

writeC6,'(" Boundary Condition: Sides Simply Supported; 

* with Filler Material . , ')' ) 

write<6,*C" Ends Free.") 1 ) 

elseif CNBC. eq.3)then 

writeC6,'C" Boundary Condition: Sides Simply Supported; 

* w/o Filler Material . ' * ) ' ) 

writeC6,'C" Ends Free . 1 1 ) 1 ) 

elseif C NBC . eq . A ) then 

write<6,'C" Boundary Condition: Ends Clamped; w/o Fille 

*r at the Sides.")') 

write(6,'C" Sides Free. 11 )*) 

elseif C NBC . eq . 5) then 

write(6,'(" Boundary Condition: Ends Clamped; with Fill 

*er at the Sides.")*) 

writeC 6 , ' C *' Sides Free.")') 

endif 

if C NBUC . eq . 1 ) then 

writeC6,'(" Stress Analysis .* f ) f ) 


elseif ( NBUC . eq . 2) then 

write<6> , C" Buckling Analysis.") 1 ) 

wri teC 6 , • C " " , i3 , " ModeC s) . " ) * )MS 

elseif C NBUC . eq . 3) then 

writeC6,'C" Post Buckling Analysis.")') 

if CNDF.ge.l) then 

TYPE= 'DISPLACEM . DEG.' 
writeC6,125)type,NDF,ND,TAR 
else 

TYPE= ' LOAD FACTOR. ' 
writeC 6 , 124) type , TAR 
endif 
endif 

write(6,*)' 1 

writeC6,'C" ***Hit <<Return>> for Next Page .***"$)' ) 

readC 5 , 1 15 ) tok 
writeC 6 , *) ' ' 
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write(6,*)' * 
write(6,*)' ' 
go to 10 


c tmat.dat Cunitll): material 


elseif(N.eq.2) then 
do 1 A j=l,NMAT 
write(6,*)' ' 

writeC6 , 102) j 
write C 6 , 123)nmt( j) 

write(6,'('' Orthotropic Material '')' ) 

write(6,10A)El(l ,j) ,El(2,j) 
write(6,105)Gl(l,j),Gl(2,j),Gl(3,j) 
write(6,106)Vl(l, j) 
write (6,109) 

write(6,'('* AML parameters for this material . 1 ')' ) 
write(6,'( ff *** Tension Strain Values ****•)') 
do 21 i = l , 3 

write(6,113)i,AMLA(i,j) , AMLSCi , j) 

21 continue 

write(6,'('' *** Compression Strain Values *** ,, > l ) 

do 22 i = A,6 

write(6,113)i,AMLA(i, j) , AMLSCi, J) 

22 continue 

write(6, , ( ff ***Hit <<Return>> for Next Page. ***••$) 

*' ) 

read( 5 , 1 15 ) tok 
write(6,*)' 1 
1A continue 5 

if (DA.eq.l) then 

write(6,'( f * AML Failure Calculation is invoked . f * )' ) 
write( 6 , *) * ' 

else 

write(6,'('' AML Failure Calculation is not invoked.'*) 1 

*) 

endif 

wri te( 6 , *) ' • 

wri te( 6 , *) ' * 

if (NBC. eq. 2. or . NBC . eq . 5) then 
NTEMP=7 

write(6,'('' ***Filler Material***' ')' ) 
writeC 6 ,*) ' ' 
write( 6 , 102)NTEMP 
if (NF.eq.l) then 

write( 6 , 123)nmt( 7 ) 

write(6 / , ('' Isotropic Material '*)' ) 

write (6,1 22 )E1(1 , NTEMP) , Vl(l , NTEMP) 
write( 6 ,*) ' ' 

write(6,'('' ***Hit <<Return>> for Next Page.***''$) 

**) 

read( 5 ,115) tok 
elseif (NF.eq.2) then 
write (6 , 123)nmt( 7 ) 

write(6, , (*' Orthotropic Material'')') 

write(6,119)El(l ,NTEMP) ,E1(2,NTEMP) ,E1(3,NTEMP) 
write(6,105)Gl(l ,NTEMP) ,G1(2,NTEMP) ,G1(3,NTEMP) 
write(6,120)Vl(l ,NTEMP) ,V1(2,NTEMP) ,V1(3,NTEMP) 
write( 6 ,*) ' 1 

write(6j*(*' ***Hit <<Return>> for Next Page.*** ,f $) A-164 


* f ) 

read( 5 ,115) tok 
$ndif 
else 

continue 
endif 
go to 10 


c wall 


elseif(N.eq.3) then 
write(6,*)* f 

wri teC 6 , * ( 1 ' Top Face Sheet Layup.**)') 

call walis(MWT,NWT,TT,AT,TCT) 
writeC 6 , *) ' * 

writeC 6 , * ( * ' Bottom Face Sheet Layup.")') 

call walisCMWB, NWB , BT, AB , BCT) 
write(6,*)' 1 

wri te( 6 , ' ( ' ' Tube Wall Layup. 11 )') 

call walis(MWC,NWC,CT,AC,CTT) 
write(6,X)* * 
go to 10 


c load i 


elseif(N.eq.A) then 
write(6,*)' * 
writeC 6 , *) 1 * 

XE=XL(2)#WDTH 

XS=XL ( 1 ) *PL 

SE=SL ( 1 )*WDTH 

SS=SL C 1 )*PL 

write(6 , 116 )XL( 2) ,XE 

write(6,117)XL(l),XS 

write(6,118)SL(l),SE,SS 

writeC 6 ,*) 1 • 

writeC 6 , ' ( * ' *XXHit <<Return>> for Next Page. XXX* •$) • ) 

read(5,115)tok 
write(6,K)' * 
go to 10* 

c 

elseif ( N . eq . 5) then 
go -to 17 
else 

go to 10 
endif 

17 return 

end > 
c 
c 

c interactive listing of wall composition info, 

c 

SUBROUTINE WALISC NUM,MAT , THK , ANG , TK ) 
dimension MAT (99) , THK (99) ,ANG(99) 
character*! tok 


c Num -- corresponds to MWT,MWB,MWC in main. Number of Plies, 

c Mat -- corresponds to NWT.NWB.NWC in main. Ply Material Number, 

c Thk -- corresponds to TT,BT,CT in main. Ply Thickness, 

c Ang -- corresponds to AT ,BT,CT in main. Ply angle. 
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c 

c . . 
101 

102 

103 

104 

105 
C 


11 


10 

12 


14 


13 


c# 

c 

c# 


Tk -- corresponds to TCT,BCT,CTT in main. Total Lay-up thickness. 


formatC 1 Ply Number * , 12 ,/, * Material Number i2 , 2x , 

*/,* Ply ThicknessC in)= ' ,f 7 . 5,2x, /, 

*• Ply AngleCdegree ) = 1 , f 7 . 2) 

formatC 1 Total Thickness= * , f 9 . 6 , 1 in . * ) 

f ormat e al ) 

formate* Bottom Face Sheet Thickness= 1 , f 9 . 6 , * in . * ) 

formate* Tube Wall Thickness= * ,f 9 . 6 , * in . * ) 

nlop=INTe NUM/4 . ) 
ibeg=l 
iend=4 
rnum=num*l . 

if e MODe rnum , 4 . ) . ne . 0 . ) then 
do 10 i=l ,nlop 

do 11 j=ibeg,iend 

writee6,101) j^MATe j) ,THKe j),ANGe j) 
continue 
writee 6 , *) * * 

writeC6,*e** ***Hit <<Return>> for Next Page .***'*$)’ ) 

reade 5 , 1 03) tok 
writee 6 , *) * * 
ibeg=ibeg+4 
iend=iend+4 
continue 

do 12 i=ibeg , NUM 

writee 6,1 01 )i,MATei) ,THKe i) , ANG(i) 
continue 
writee6,*)* * 
writee 6 , 1 02 )TK 
writee6,*)* * 

writee6,*e** ***Hit <<Return>> for Next Page . *** f * $ ) • ) 

reade 5 ,103) tok 
writee6,*)' * 
else 

do 13 i=l,nlop 

do 14 j=ibeg,iend 

write(6 , 101 ) j , MAT e j ) ,THKe j) , ANG( j) 
continue 
writee6,*)* * 

writee6,*e ,f ***Hit <<Return>> for Next Page . *** * * $ ) * ) 

reade 5 , 1 03) tok 
writee6,*)* * 
ibeg=ibeg+4 
iend=iend+4 
continue 

writee6,*)* 1 
writee 6 , 1 02)TK 
writee6,*)* * 
writee6,*)* * 

writee6,'e ,f ***Hit <<Return>> for Next Page . *** 1 * $ ) 1 ) 

readC 5, 103) tok 
writee6,*)* * 
endif 

return 

end 

interactive parameter modification. 
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SUBROUTINE tmod 


C 


c 


C 

100 

101 

102 

103 

1 04 

105 

106 

107 

108 

109 

110 
c . . 
c 

c . . 
10 


c . 
c 
c . 

11 


C 


common / tgeom/ A , B , PH , PL , NW , K , NBC , NBUC , TCT , BCT , CTT , T AR , NDF , ND , MS 
common /bmatV NMAT,E1(3,7) ; V1(3,7) >61(3, 7) ; NF 
* T(3,6),CC3,6),SHC3,6) ,FC3,6) 

common /taml/ AMLS( 6 , 6 ) , AML A( 6 , 6 ) , AMLTC 6 ) , DA 

common /twall/ MWT ,MWB , MWC , NWTC 99 ) , NWBC 99 ) , NWCC99 ) , TT( 99) , BT( 99 ) , 
*CT (99) , ATC 99) , ABC 99 ) , ACC 99 ) 
common /load/ XL ( A ) , SL ( A ) , XE , XS , SE , SS , TMPD 
common /name/ nmt 
character*l IDC,tok,tok2 
character nmt*50 
dimension nmt(7) 

format( lx , i2 , ' >Material ' , i2 , ' . ' ) 
f ormatC lx , i2 , ' >Return to Menu.*) 
formate* Material Number * ,i2,'.*) 

formate* Ply Number *,i2,*.') 

format Cal ) 

formate lx ,* ! 7>Fi 1 ler Material CNumber ',i2,').') 
formate* Enter Angle for Point *,i2,' = '$) 

formate* Enter Strain Allowable for Point *,i2,' = *$) 

f ormatC 5x , Enter AML Curve Angle CDegree) 8 Strain Allowable >>* 
*$) 

formate* Nartie >> '$) 
formatCa50) 

modify files 

writeC6,*)' * 
writeC6,'C ' * 
writeC6 , * C 1 * 
writeC6 , * C * * 
writeC 6 , * ( * * 
writeC6,'C * * 
writeC 6 , ' C ' * 
writeC 6 , * ( * * 
writeC 6 , ' C * * 
writeC 6 , * C ' * 
call nintgC 1 , N) 


tgeom.dat CunitlO): geometry 


Choose the Info, to be Modified:**)*) 
l>Panel Geometry.*')*) 

2>Material Data. * ' ) ') 

3>Wall Layups. **)•) 

4>Load . **)*) 

- --**)*) 

5>Return to List Menu.*')') 

6>Save the Changes and Exit.**)*) 

Enter>> *'$)*) 


if CN.eq.Dthen 
writeC6,*)* * 
writeC 6 , * C * * 
xbe Modified :**)*) 
writeC 6 , * ( ’ * 
writeC 6 , 1 C * * 
writeC 6 , * C ' * 
writeC 6 , ’ C ' * 
writeC 6 , ' C * ' 
writeC 6 , ' C ' * 
writeC 6 , *C ' * 
writeC 6 , * C * * 
writeC 6 / * C " 
call nintg(l,M) 
writeC6,*)' * 


Choose the Following Geometrical Parameter to 

l>Tube Height , PH . ' ’ ) * ) 

2>T ube Width — Bottom. A**)*) 

3>Tube Width -- Top. B**)') 

4>Panel Length, PL.'*)*) 

5>Number of Tubes.'')') 

6>Boundary Condition.'')') 

7>Type of the Analysis.'')') 

8>Return to Menu.'*)*) 

Enter>> *'$)') 


if CM . eq . 1 ) then 
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wr ite( 6 , • C 1 ’ Tube Height, PH(in) = l •$) 1 ) 

call nreal(l,PH) 
writeC6,*) f 1 
el seif C M . eq . 2 ) then 

writeC6, , C fl Tube Bottom Width, ACin) =,, $)') 

call nreal(l,A) 
writeC6,*) f 1 
el seif (H . eq . 3) then 

writeC6, , C ,t Tube Top Width, BCin)= f, $)*) 

call nrealCl,B) 
write(6,*) f * 
el seif (M . eq . A) then 

writeC 6 , * C * f Panel Length, PLCin)=* 1 $) * ) 

call nreal(l,PL) 
write«C6,*) f * 
elseif (M^. eq . 5) then 

writeC 6 , 1 C 1 * Number of Tubes =,, $) f ) 

call nintgC 1 , NW) 

writeC6,X) f * 

elseif CM '. eq . 6 ) then 

writeC 6,*C ft Boundary Condi tion : 1 1 )* ) 

writeC 6 , f C 1 1 l>Infinite Panel. ,, ) f ) 

writeC 6 , 1 C 1 * 2>Sides Simply Supported; with Filler Hate 

Xrial. Ends Free. M )*) 

writeC 6 , 1 C 1 1 3>Sides Simply Supported; w/o Filler Mater 

Kial . Ends Free. 1 M 1 ) 

writeC 6 , 1 C 1 * 4>Ends Clamped; w/o Filler at the Sides. 5 

Xides Free. ,, ) , ) 

writeC 6 , • C 1 1 5>Ends Clamped; with Filler at the Sides. 

* Sides Free . 1 1 ) 1 ) 

writeC 6 , • C 1 * Enter 

call nintgCl,NBC) 
writeC 6 , *) 1 * 

if CNBC. eq. 2. or .NBC.eq.5) then 

writeC 6 , 1 C 1 * Do You Want to Add or Change the Filler Ha 

*terial? [Y or N] ,f )*) 

writeC 6 , • C 1 1 xxxxWARNING! ! ! IF YOU CHANGE BOUNDARY CONDIT 

xlON 1 1 ) 1 ) 

writeC 6 , f C f 1 TO INCLUDE FILLER ON THE SIDE, YOU WOULD HAV 
XE TO ADD * 1 ) 1 ) 

writeC 6 , * C 1 1 FILLER MATERIAL PROPERTIES .XXXX» » *$) f ) 
readC 5, 10A)tok 
writeC6 ,*) 1 1 

if Ctok.eq. , Y I . or . tok . eq . f y 1 )then 

writeC 6 , * C f 1 Add Filler Material. 

writeC 6,109) 
readC 5 , 1 10 )nmtC 7 ) 
writeC6,*)' 1 

writeC 6 , 1 C 1 1 Select DIsotropic. 2)0rthotropic . >>" 

x$)») 

call nintgCl,NF) 
writeC 6,*) 1 1 

*» writeC 6, *C 1 9 Input Material Inf ormation : 1 ' ) 1 ) 
if CNF.eq.l) then 

writeC 6 , 1 C f 1 Enter ECpsi)» • '$) f ) 

* call nrealC 1 , El C 1 , 7 ) ) 
writeC6,*)' 1 

writeC 6 , 1 C * 1 Enter V» ,l $) f ) 

call nrealC 1 ,V1C 1,7)) 
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c 


12 

c . 
c 

c . 


13 


writeC 6 , X) * 1 
elseif (NF.eq.2) then 

writeC 6 , * C 1 1 Enter Ell, E22, E33(psi)>> « • $ ) » ) 

call nreal(3,El(l ,7) , El ( 2 , 7 ) , El ( 3, 7 ) ) 
writeC6,*)* 1 

wri teC 6 , f ( 1 9 Enter G12, G23, G31 (psi)>> f •$) • ) 

call nreal(3,GlCl,7) , G1 ( 2 , 7 ) ,G1(3,7)) 
writeC6,*)* 1 

wri te( 6 , 1 ( f f Enter V12, V23, V31>> ,, $)') 

call nrealC3,VKl,7) , VI ( 2 , 7 ) , VI ( 3 , 7 ) ) 
wri te( 6 , X) * 1 

endif 
endif 
else 

continue 

endif 

e lseif ( M . eq . 7 ) then 


writeC 6 , f ( 1 B 
wri te( 6 , 1 ( • 1 


Type of the Analysis : l>Stress . 1 f ) f ) 

2>Bifurcation Buckling 


writeC 6 , ' ( ' ' 3>Post Buckling. 1 ')*) 

writeCb^C* 1 Enter >> ,, $) 1 ) 

call nintgC 1 , NBUC) 

writeC6,X)* * 

if (NBUC.eq.3) then 

wri te( 6 , 1 C 1 * Type of target >> 0)Load Factor. ,r ) f ) 

wri te( 6 , • ( f 1 l-6)Displce. * 1 ) • ) 

wri te( 6 , 1 ( 1 • Enter >>'*$)•) 

call NINTGC 1 , NDF) 

writeC6 , X) 1 1 

if (NDF.ge.l) then 

wri teC 6 , • C ' 1 Node # 
call NINTGC 1 , ND) 
writeC 6 , X) * * 
endif 

writeC 6 , ' C * 1 Target Point = fl $) f ) 
call NREALC 1 ,TAR) 
writeC6,X)* 1 
elseif C NBUC . eq . 2) then 

write C 6 , 1 C 1 ' How many MODE shapeCs) do you want CMax. 50) 
X? >>»*$) * ) 


call NINTGC 1 , MS) 
writeC6,x) f 1 
endif 
else 

go to 10 
endif 
go to 11 


tmat.dat Cunitll): material 


elseif CN .eq. 2) then 
writeC6,x)» 1 
wri teC 6 , 1 C * f 
write(6 , * C 1 • 
xterial). 1 »)• ) 
writeC 6 , • C 1 1 
writeC6 , 1 C ' * 
writeC6 , 1 C 1 1 


1> Add New Material . 1 1 ) 1 ) 

2> Modified Existing MateriaKor Add Filler Ma 

3> Y/N on AML Failure Calculation . 1 1 )' ) 

4> Return to Previous Menu.* 1 )*) 

Select >> * 1 $ ) 1 ) 
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call nintg(l,MP) 
write(6,*)' 9 

if (MP.eq.l) then 

write( 6 , 1 ( * ' **Please Keep the Material Number ,, ) , ) 

wri te( 6 , ■ ( • ' (Excludes Filler Material) at Maximum o 

*f 6** 1 9 ) 9 ) 

write( 6 ,*) * * 

NMAT=NMAT+1 
El ( 3 ,NMAT)=100 . 

writeC6, , ( ,f Material Number >> 1 1 , i2 ) • ) NMAT 

writeC 6 ,109) 

read( 5 , 1 lO)nmt(NMAT) 

write(6,*) f 1 

writeC6, , ( ,f Enter Material Information >> ,f ) f ) 
writeC6 , * ( 1 f Enter Ell, E22 (psi)^'*)*) 

call 'nreal ( 2 , El ( 1 , NMAT ) , El ( 2 , NMAT) ) 
write(6,*)* f 

wri te( 6 , 9 i 9 9 Enter G12, G23, G31 (psi)» ,, $) f ) 

call nreal ( 3 , G1 ( 1 , NMAT ) , G1 ( 2 , NMAT ) ,G1(3,NMAT)) 
write(6,*) f 9 

writeC 6 , 1 ( * 1 Enter V12 >> ,, $) t ) 

call nreal ( 1 , VI ( 1 , NMAT ) ) 
write(6,*)* * 
if (DA.eq.l) then 

call amlinpC NMAT , AML A , AMLS , AMLT , DA) 
else 

do 77 i=l , NMAT 
do 78 j- 1 , 6 

AMLSC i , j ) = 0 . 

AMLACi, j)=0. 

78 continue 

c AMLT(i)=0 . 

77 continue 

endif 
C 

write(6,*) f * 
go to 13 

elseif (MP.eq.2) then 

14 write<6, , ( ,, Choose the Material to be Modif ied . 9 9 ) 1 ) 

if (NBC. eq. 2. or .NBC.eq.5) then 
NTMP=7 
DO 80 i = l ,8 

if (i . le . NMAT) then 
wri te( 6 , 100 )i , i 
elseif (i .eq . 7) then 
write(6 , 105)7 
elseif (i . eq .8) then 
writeC 6 , 101 ) i 
endif 

80 continue 

write(6 , 1 ( f 1 Enter >> ,, $) f ) 

call nintg(l,J) 
write(6,*) f 9 
if (J.le.NMAT) then 

call matmod( J,E1 ,G1 , VI ,NF,nmt) 
if (DA.EQ.l.) THEN 

call amlinp(J,AMLA, AMLS, AMLT, DA) 
endif 
go to 1A 

elseif (J.eq.7) then 
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*f 


call matmod( J,E1 , G1 , VI ,NF,nmt) 
go to 14 

elseif ( J.eq.NTMP+l)then 
go to 13 

elseif CJ.gt.8) then 

writeC6 J , ( ,f Entered Number 

Materials . ' 1 ) 1 ) 


Exceeds Total 


Number 


wri teC 6 , * » 
go to 14 
endif 


writeC 6 , *) 1 * 
else 


NTMP=NMAT+1 
DO 81 i = 1 , NTMP 

if ( i . le . NMAT) then 
writeC 6 , 100 )i , i 
else 


writeC 6 , 1 01 )i 
endif 
continue 

write ( 6 , 1 ( * 1 Enter >>*•$)•) 

call nintg ( 1 , J ) 
writeC6 J K) f f 
if (J.le.NMAT) then 

call matmodC J , El , G1 , VI , NF , nmt ) 
if (OA.eq.l.) then 

call amlinp( J, AMLA,AMLS,AMLT,DA) 

endif 
go to 15 

elseif ( J .eq . NTMP) then 
go to 13 
else 


writeC 6 , 9 ( * 1 
Material . ' f ) f ) 


£ntered Number Exceeds Total Number o 


write(6 ,*) 9 
go to 15 
endif 

write(6,*) f • 
endif 

elseif CMP.eq.3) then 
if (DA.eq.l) then 
writeC 6 , X ) 9 9 
write(6, ' C f * 
else 

write(6,X) f • 
write(6 , 9 ( 9 9 

*) 1 ) 


r 


AML Failure Calculation IS INVOKED . 1 *)' ) 


AML Failure Calculation IS NOT INVOKED. 1 1 


endif 

wnte(6 , ' ( ' ' Do You Want to Change It? [Y or Nl»"$)') 
readC 5 , 1 04 ) tok 
write(6,*)* 1 

if Ctok.eq. 1 Y ' .or. tok. eq . 1 y * ) then 
if (DA.eq.l.) then 
DA=0 . 

elseif CDA.eq.O.) then 
DA-1. 


endif 
endif 
go to 13 

elseif (MP.eq.4) then 



c . 
c 
c . 

20 


83 


85 


87 


c 

c 

c 


29 


go to 10 
endif 


wall 


elseif ( N . eq . 3) then 
writeC6,*)* ' 

writeC6, , C ,t Choose One of the Following ,f )*) 

wri te( 6 , • C ■ * l>Change the Top Cover Sheet Layup . 1 1 ) 1 ) 

writeC 6 , * C * * 2>Change the Bottom Cover Sheet Layup. ,, ) , ) 

write( 6 , ' ( 1 ' 3>Change the Core Layup.* *)*) 

write(6, '( 1 1 4>Return to the Previous Menu . 1 f ) * ) 

write( 6 , * ( f * Enter>> 1 '$) * > 

call nintgCl,M) 

writeC6,*)* * 

if CM . eq . 1 ) then 

call walmocKMWT ,NWT jTT , AT) 

TCT=0 . 

do 83 k=l,MWT 
TCT=TCT+TTCk) 
continue 
writeC 6 ,*) * * 

go to 20 

e Iseif ( M . eq . 2 ) then 

call walmodCMWB j NWB , BT , AB) 

BCT=0 . 

do 85 k=l,MWB 
BCT=BCT+BT (k) 
continue 
writeC6,*) f * 
go to 20 

elseif CM. eq. 3) then 

call walmodCMWC,NWC,CT,AC) 

CTT=0 . 

do 87 k = 1 , MWC 
CTT =CTT +CTCk ) 
continue 
go to 20 

else 

go to 10 
endif 


load 


elseif CM . eq . A ) then 

TMPD=CA+B)/2.*CNW+1) 
writeC6,*) f * 

writeC 6, '< ' * Which load do you want to change?”)') 

write(6,'(” l>End loads.”)') 

write(6,'(” 2>Side loads.”)') 

writeC6,'(” 3>Shear load.”)') 

write(6,'(” <*>Return to Menu.”)') 

writeC6,'<” Enter »”$)') 

call nintg(l.M) 

write(6,*)* ' 

if (M.eq. l)then 

write(6,'C” Do you want to enter the l>Total Load or 2> 

KLine Load? >>'')') 

writeC 6, '( ” Enter »”$)') 

call nintg(l,ML) 
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write(6,*)' • 
if ( ML . eq . 1 ) then 
wri te( 6 , 1 ( 1 * 

*") load (lb. ) = **$)•) 

call nreal ( 1 , XL (2) ) 
XL ( 2) =XL ( 2)/TMPD 
XL ( 4 ) =XL (2) 
write(6,x) f • 

go to 29 
else 

wri te( 6 , f ( • • 

*e load (lb.i^in) = ,# $)*) 

call nreal ( 1 , XL ( 2 ) ) 
XL ( 4 ) =XL (2) 
wri te( 6 , X) 1 ' 
go to 29 
endif 

elseif (M. eq . 2) then 
wri te( 6 , 1 ( 1 1 
*Line Load? >> 1 * ) 1 ) 
writeC 6 , *( • 1 
call nintg( 1 , ML ) 
wri te( 6 , X) • * 
if(ML.eq.l) then 
write ( 6 , 1 C f * 

*“ ) load Clb, )=’ 

call nreal C 1 , XL ( 1 ) ) 
XL ( 1 ) =XL ( 1 )/pl 
XL ( 3 ) =XL ( 1 ) 
write(6,X)« 1 
go to 29 
else 

write(6, f ( 1 # 

*e load Clb./in)* 1 •$) 1 ) 

call nreal C 1 , XL ( 1 ) ) 

XL ( 3)=XL( 1 ) 
write(6,x)* * 
go to 29 
endif 

elseif ( M i eq . 3) then 
write( 6 , 9 ( * f 
*Line Load? >> * • ) » ) 

.writeC 6 , 1 C * f 
call nintg( 1 ,ML) 
wri te( 6 , X) ■ * 
ifCML.eq.l) then 
wri te( 6 , 9 ( * 1 
wri te( 6 , 9 ( 9 9 
wri te( 6 , 9 ( 9 9 
call nintgC 1 ,M) 
wri te( 6 , X) 1 * 
if (M.eq.l) then 
writeC 6 , f ( 1 * 
call nrealC 1 ,SL(2) ) 
SL ( 2) =SL ( 2)/TMPD 
SL ( 9)=SL (2) 

SL ( 1 )=SL(2) 
SL(3)=SL(2) 
writeC 6 , X) 1 • 
go to 29 


Input total tensile (+) or compressive ( 


Input tensile ( + ) or compressive (-) li n 


Do you want to enter the l>Total Load or 2> 


Enter >> ' 1 $ ) 1 ) 


Input total tensile (+) or compressive ( 


Input tensile (+) or compressive (-) lin 


Do you want to enter the l>Total Load or 2> 


Enter >> 9 9 $ ) * ) 


1> On the Ends . 9 9 ) » ) 
2> On the Sides . 9 9 ) • ) 
Enter >> 1 1 $ ) » ) 


Total Shear Load (lb.)= ,, $)») 
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o o 


c 


30 


writeC 6 , ' ( ' ' Total Shear Load (lb. ) = "$)') 

call nrealt 1 , SLC 1 ) ) 

SLCl)=SL(l)/pl 

SL(3)=SLC1) 

SL(2)=SL(1) 

SL(4)=SL(1) 
write(6 ,*) ' ’ 


go to 29 
endif 
else 

write^,*!** Shear Line Load ( lb . /in)= * 1 $ ) 1 > 

call nreaK 1 , SL( 2) ) 

SL ( 4 ) =SL( 2 ) 

SL(1 )=SL(2) 

SL ( 3 ) =SL( 2) 
write(6,*)* 1 

go to 29 
endif 
else 

go to 10 
endif 

elseif(N.eq.5) then 
wr ite( 6 , X) • 1 

call tlis 
go to 10 
else 

write(6,*)* 1 

write(6 , ,f C • * Do you want to quit 11 ) 1 ) 

wr iteC 6 , * ( ’ • input listing and modification? CY/N] 1 * 

writeC 6 , * ( 1 * Enter »•’$)•) 

readC 5,104) tok 

if ( tok . eq . 1 Y f . or . tok . eq . 'y'Jthen 


call tsave 

write xxxxxEnd of Data Input Session.***** 
go to 30 
else 

go to 10 
endif 
endif 

return 

end 


c 

Read AML inputs 


SUBROUTINE AMLINPCma ,ang , str , tem,da) 

C 

dimension ang( 6,6), str ( 6 , 6 ) , temC 6 ) 
integer ma 
real da * 
char ac ter *1 ’tok , tokl 
104 format(al) 
c 

write(6, , C ,, Current AML Curve Parameter for Material 11 , 
writeC 6 , 1 ( 1 1 ** Tension Strain Values ** ,, ) f ) 

do 20 k=l , 6 

write(6, , ( ,t Point " ,i2," : AngleCdeg.) = f, ,f6. 

Strain Allowable = 1 f ,f9.5) 1 )k ,ang(k,ma) ,str(k,ma) 
if (k.eq.3) then 


f ) 

*•)») 


i2) f )ma 
2 , 


x 1 ' 
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** Compression Strain Values xx f *)») 


20 

900 


25 

950 


999 


Do You Want to Change (or Input) This AML Failure 
N] >>"$)•) 


writeC 6 , ' ( ' f 
endif 
continue 
write(6,x)« 1 
write(6 , 1 ( 1 * 

* Curve? [Y or 
read(5, 10A) tok 
write(6,x)* 9 

if (tok.eq. 'Y v .or.tok.eq. 'y v ) then 
DA=1 . 

write(6 / , ( ,t Change the Entire Curve? (Y or N] 1 • $ ) • ) 

read( 5 ,104) tokl 
write(6,x)» ' 

if ( tokl , eq . 1 Y* . or . tokl . eq . *y 1 ) then 
write(6,x)« * 

write(6 / , ( ,f ** Tension Strain Values ***■)») 

do 25 k=l , 6 

writeC 6, ' ( 1 1 Point f, ,i2)*)k 

writeC 6 # * ( ' * Angle (deg.) = •»$)*) 

call nreal(l ; ang(k,ma)) 

wri te( 6 , 1 ( f ' Strain Allowable = »•$)•) 

call nreal(l,str(k,ma)) 
write( 6 , X ) 1 * 

if (k.eq.3) then 

*write(6, ' ( • • ** Compression Strain Values XX 11 ) 1 ) 

endif 
continue 
write(6,x) f • 
else 

write06,'( ,f Choose the Item to be Modified. >> ,, ) , ) 


( 1 1 

XX 

Tension Strain Values xx ff ) f ) 

( f • 

1> 

Point 1 . • 9 ) 9 ) 

( • 1 

2> 

Point 2 . 1 1 ) 1 ) 

( * f 

3> 

Point 3 . 1 1 ) f ) 

( #f 

XX 

Compression Strain Values XX ff )*) 

( * 1 

A> 

Point A . * * ) 1 ) 

( 1 1 

5> 

Point 5 . 9 9 ) 1 ) 

( * ' 

6> 

Point 6. 1 *)•) 

( f 1 

7> 

Return . * * ) 1 ) 


wri te( 6 , 1 ( f • Enter »'»$)■) 

call nintg(l,N2) 
write(6,x)* » 

,if(N2.1e.6) then 

write( 6 , f ( • 1 Point ,f ,i2) f )N2 

write( 6 , • ( • 1 Angle (deg.) = •'$)•) 

call nreal ( 1 , ang( N2 , ma) ) 

write(6,'( ,f Strain Allowable = •■$)') 

call nreal ( 1 ,str ( N2,ma) ) 
write(6,x)> 9 
el seif ( N2 . eq . 7 ) then 
go to 999 
endif 


go to 950 
endif 
else 

write(6 , 1 ( 1 * 
write(6,x)* ■ 
endif 
continue 
return 


AML Curve for Material " ,i2, * * Unchanged.")') 
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end 


c 

C MATHOD 

c 

SUBROUTINE MATM0D(i ,elas,rig,pois,nf ,nmt) 

dimension elas(3,7) ,rig(3,7) ,pois(3,7) 

integer i 

character*l tok 

character nmt*50 

dimension nmt(7) 

400 format(al) 

<♦01 formate Enter New Material Name » '$> 
<♦02 formate Name >> ' ,a50) 

4 03 formatCaSO) 
c 

c i - material number >> J in TMOD 

c elas - elastic modulus >> El in main 

c rig - shear modulus >> G1 in main 

c pois ~ Poisson’s ratio >> VI in main 


c 


900 


910 


if (i.eq.7) then 
go to 950 

writeC6, , ( l * Do You Want to Change It to Another Material? 

*or N] »"$)') 
readC 5 ,400 ) tok 
writeC 6 , *) 1 1 

if ( tok . eq . f Y* . or . tok .eq. *y 1 ) then 
writeC 6 , 401 ) 
readC 5 , 403 )nmt ( i ) 
writeC6,*) f 1 

writeC 6 , * ( 1 • Enter Ell, E22 Cpsi)^**)*) 

call nreal ( 2,elasCl,i) , e las( 2 , i ) ) 
writeC 6 ,*) 1 * 

writeC6, f C ,, Enter G12, G23, G31 (psi >>> * 1 $) 1 ) 

call nrealC3,rigCl,i) , rigC 2 , i ) , rigC 3 , i ) ) 
writeC6,*) f 1 

writeC 6 , ' C ’ 1 Enter V12 »•’$)*) 

call nreal C 1 ,poisC 1 , i ) ) 
writeC6,*)' 1 
go to 999 

elseif C tok , eq . , N* .or. tok . eq . 1 n* ) then 
writeC 6 , 402) nmtC i) 

writeC 6 , 1 C * 1 Choose the Item to be Modified. >> ) ) 

writeC6, , C ,f l>Name ,, ) , ) 

writeC 6 , 1 C 1 1 2>E11, E22”)’> 

writeC 6 , 1 ( • 1 3>G12, G23, GZl'nn 

writeC 6 , fl C 1 1 4>V12 ,, ) f ) 

writeC 6 , ’ C f 1 5>Continue' * ) 1 ) 

writeC 6 , ' C 1 1 Enter »”$>•) 

call nintgCl,Nl) 
writeC6,*)* * 
if CN1 . eq . 1 )then 
writeC 6 , 401 ) 
readC 5 ,403) nmt C i ) 
writeC6,*) f 1 
go to 910 

elseifCNl.eq . 2) then 

write? 6 , • ( * * Ell, E22(psi)= "$> * > 

call nreal(2,elas(l , i) ,elas(2, i ) ) 


[Y 
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writeC 6 , *) ' » 
go to 910 

elseifCNl .eq.3) then 

write(6 , • ( • * G12, G23, G31(psi)=* •$) • ) 

call nreal(3,rig(l ,i) ,rig( 2 ,i) , r ig( 3 (i ), 
write C 6 , *) * 1 
go to 910 

elseif ( N1 .eq.4)then 

wri teC 6 , ■ C • ■ V12= f •$) » ) 

call nrealC 1 ,poisC 1 , i ) ) 
writeC 6 , X) 1 • 
go to 910 

elseif CN1 .eq.5)then 
go to 999 
endif 
endif 


c 

C . . , 

950 


Material Modification. 


>>••$)') 


Y ° U *° Add ° r Chan9 « the Material? 

read ( 5 , 400 ) tok 
writeC 6 , X) 9 • 

if Ctok .eq. I Y* .or . tok .eq. 'y • ) then 
writeC 6 , 401 ) 
read C 5 , 403 )nmtC 7 ) 
writeC 6 , x) » 1 

* Select DIsotropic. 2) Orthotropic . >>•*$)■) 

call nintgC 1 , NF) 1 

writeC 6 , X) 9 9 

if CNF.eq*l) then 

writeC6, , C ,f Enter E Cpsi) »•*$)•) 

call nreal Cl, el as Cl, 7)) 
writeC6,X) f 1 
writeC 6 , f C • f Enter V 

call nrealCl ,pois(l,7)) 
writeC6,x)« • 
elseif CNF.eq.2) then 

writeC 6 , * C 1 • Enter Ell, E22 ,E33 Cpsi) >>••$)•) 

call nreal C 3 , elasC 1,7) ,elasC2,7) ,elasC3,7) ) 
write(6,X) f 1 

writeC6,*(" Enter G12, G23, G31 (psi) »••$)■) 

' ca ll nr ealC3,rigCl ,7) , rigC 2 , 7 ) , rig( 3 , 7 ) ) 
writeC6,x) f • 

write C 6 , • C ' 1 Enter V12, V23, V31 »••$)•) 
call nreal C3,pois( 1,7) ,pois(2 , 7) ,pois(3,7) ) 
writeC6,X)* * 
endif 
go to 999 

elseif Ctok .<eq. *N* . or.tok.eq. 'n') then 
writeC 6 , *) 9 9 
if CNF. eg. 1) then 
writeC6,402)nmt(7) 
writeC6 , ' C ' ' Isotropic.'*)*) 

Choose the Item to be Modified. »•»)*) 
l>Elastic Modulus -- E**)*) 


writeC 6 , * C f 9 
write(6, 9 C 9 9 
wri teC6 , • C 9 9 
writeC 6 , 1 C 1 1 
call nintgC 1 , N1 ) 
wri teC 6 , X) f f 


2>Poisson 


i i 1 1 


Enter >> 9 »$) 1 ) 


s Ratio -- V 1 9 ) 9 ) 
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if ( N1 . eq . 1 ) then 

wri te( 6 , ' C ' ' E (psi) = "$)') 

call nreal C 1 ,elasC 1 , 7 ) ) 
writeC6,*)' • 
elseif CNl.eq.2) then 

write C 6 , * ( * 1 V ='•$)*) 

call nreal C 1 , poisC 1 , 7 ) ) 
writeC6,*)' 1 
endif 

elseif (NF.eq.2) then 
writeC6,402)nmtC7) 
wri te( 6 , ’ C ' ' Qrthotropic . * ' ) * ) 

writeC 6 , * C ' ' Choose the Item to be Modified. »")') 

wri teC 6 , ' C ' * 1>E11, E22, E33")*) 

wri te( 6 , ' C ' ' 2>G12, G23, G31") f ) 

writeC 6 , ' C 1 ' 3>V12, V23, V31")') 

writeC 6 , * ( 1 ' Enter >>"$)') 

call nintgC 1 , N1 ) 

writeC 6 , *) ' 1 

if ( N1 . eq . 1 ) then 

writeC 6 , ' C ' ' Ell, E22, E33 Cpsi)*"*) 1 ) 

call nreal C 3 , elasC 1 ,7) ,elas(2,7) , elasC 3,7)) 
writeC 6 , *) * 1 
elseifCNl ,eq.2)then 

wr ite C 6 , 1 C 1 1 G12, G23, G31 Cpsi)- ' ' $ ) ' ) 

call nrealC3,rigC 1 ,7) ,rigC2,7) ,rig(3,7)) 
writeC6,*)' 1 
else 

writeC 6 C ' ' V12, V23, V31="$) f ) 

call nreal C 3,poisCl,7) ,poisC2,7) ,poisC3,7) ) 
writeC6,*)' 1 
endif 
endif 
go to 999 
endif 1 

999 continue 
return 
end 
c 

c wall layup modification 

C ’ 

SUBROUTINE WALMODC NUM , MAT , THK , ANG) 
dimensi on MAT C 99 ) , THK C 99 ) , ANGC 99 ) 
character*! tok2,yn 


c Num -- corresponds to MWT,MWB,MWC in main. Number of Plies. 

c Mat .. corresponds to NWT,NWB,NWC in main. Ply Material Number, 

c Thk -- corresponds to TT,BT,CT in main. Ply Thickness, 

c Ang -- corresponds to AT,BT,CT in main. Ply angle, 

c 

100 formatCal) 

101 formatC' Is it the Same for All Plies? CY or N] >>'$) 

102 formatC' Ply ' ,i2,' Material ' ,i2,* Thick .= ' ,f 7 . 5, 1 in. Ori 
*entation= ' ,f 6 . 2 , 'Deg . ' ) 

40 writeC6,*)' ' 

writeC 6 , ' C " Do You Want to Change the Entire Lay-up? [Y or N] ' 

*'$)') 

read C 5 , 1 00 ) tok2 
writeC 6 , *) ' ' 

if Ctok2.eq. 'Y f .or .tok2.eq. 'y ' ) then 
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write(6,'( ,r Enter Total Number of Plies >> ,, $) 1 ) 
call nintg( 1 , NUM) 
wri te ( 6,*) 1 1 

c 


c Wall Construction Input 

c Ply Material Number 


C 

write(6, , ( ,f Input Ply Material Number >> 1 * ) * ) 
writeC 6 ,101) 
readC 5 , 1 00 )yn 
wri te( 6 , *) 1 1 

if Cyn .eq. ' Y ' .or.yn.eq. 'y ' ) then 
writeC 6 , 1 ( 1 1 Enter >>'*$)') 

call nintgC 1 , MAT ( 1 ) ) 
do 15 i=2 , NUM 
MAT ( i )=MAT ( 1 ) 

15 continue 
writeC6,*) 1 1 

else 

write^^'C 11 Input Material Number List for the Lay-up. ( To 
*tal of n ,i2," Plies.) » ,, ) , )NUM 
do 16 i = 1 , NUM 

writeC 6 , ' ( 1 1 Enter »••♦)•) 
call nintgC 1 , MAT ( i ) ) 

16 continue 

writeC6,*) f 1 

endif 

c Ply Thicknesses 

write^^C 1 ' Input Ply Thickness (in.) >> ,, ) i ) 
writeC6 , 101 ) 
readC 5 , 1 00 )yn 

if (yn . eq . # Y * . or . yn . eq . *y ' ) then 
wri teC 6 , * ( * * Enter »»•♦)•) 
call nreal( 1 , THK( 1 ) ) 
do 17 i = 2 , NUM 
THK( i ) =THK ( 1 ) 

17 continue 
writeC 6 , *) 9 f 

else 

write^^'C 11 Input Ply Thickness List for the Lay-up. ( Tota 
*1 of f 1 , i2 , 1 1 Plies.) » ,, ) , )NUM 
do 18 i=l / NUM 

V*rite( 6 , * C • * Enter » lf $)') 
call nrealC 1 , THKCi ) ) 

18 continue 
write(6,*)' 1 

endif 

c Ply Ofientations 

write(6,'( ,f Input Ply Orientation (deg.) >> f, ) r ) 
writeC 6 , 1 01 ) 
readC 5 , 1 00 )yn 
writeC 6 , *> 1 1 

if (yn . eq . 1 Y *■ . or . yn . eq . *y * ) then 
write^j'C 11 Enter >> ,, $) t ) 
call nrealC 1 , ANGC 1 ) ) 
do 19 i=2,NUM 
ANGC i)=ANG( 1 ) 

19 continue 
writeC 6 , X) 1 1 

else 
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write(6, '( f ■ Input Orientation List for the Lay-up. ( Total 
*of ,f ,i2,' f Plies.) >> ,, ) , )NUM 
do 20 i = l , NUM 

write( 6 , 1 ( 1 1 Enter >> f, $)«) 
call nreal ( 1 , ANG( i ) ) 

20 continue 

write(6,*)' 1 
endif 
else 


c . 
c . 
c . 

50 

21 

51 


c . . . 
c 

c . . . 


Individual Ply Changes 


wri te( 6 , * ( * 1 Current Layup Info •■)») 

do 21 i= 1 , NUM 

write(6,102)i , MAT(i) , THK(i) , ANG(i) 
continue 
wri te( 6 , *) 1 • 

write(6, •( • • Select the Ply to be Modified 

write(6 , ' ( ' ' Enter >>••$)•) 

call nintg(l,N) 

write(6,*) f 9 

if (N.gt.NUM) then 

write(6 / , ( ,f Input Too Big. Try Again !!?• 9 ) f ) 

go to 51 
else 

writeC 6 , ' ( ' * DMaterial Number 2)Thickness 3)0rientation 


write(6 , ' ( • • Enter >>"$)•) 

call nintgC 1 ,N2) 
write(6,*)* f 
if (N2.eq.l) then 

write^^'C 11 Material Number for Ply t9 ,i2, 99 is >> ,# 


call nintgC 1 ,MAT ( N) ) 
writeC 6 , X) ' 9 
elseif C N2 . eq . 2 ) then 

write(6, , C ,f Thickness for Ply is >> ,, $) , )N 

call nrealC 1 , THK(N) ) 
wri te( 6 , 9 * 

else 

write(6 / , C ,, Orientation for Ply 99 ,i2, 99 is >> ,f $) 


call nreal( 1 , ANGC N) ) 
write(6,*) 1 9 
endif • 
endif 
endif 

write(6, *( 9 f i Do You Want Further Changes? [Y or N] >> lf $)») 
readC 5 , 1 00 )^n 
writeC 6 ,*) 9 1 

if (yn . eq . 1 Y* .or .yn.eq. *y 1 ) then 
go to <40 
endif 

return 

end 


MESH GENERATION 
SUBROUTINE TMESH 


C 
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common /tgeom/ A , B , PH , PL , NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 
common /bma t / NMAT , E 1 ( 3 , 7 ) , VI ( 3 , 7 ) , G1 ( 3 , 7 ) , NF 
common /taml/ AMLSC6 ,6) , AMLAC6 ,6) # AMLTC6 ) ,DA 

common /twall/ MWT , MWB , MWC , NWK 99 ) , NWB( 99 ) , NWC( 99 ) , TT( 99 ) , BTC 99 ) , 
* CT(99) , ATe 99 ) ,AB(99) ,AC(99) 

common /load/ XL ( A ) , SL ( 4 ) , XE , XS , SE , SS , TMPD 
C 

101 formate 'let &a= , / f8.5 # , # 8a = B = top width of the tube.') 

102 formatC 1 8b=',f8.5,* # 8b = A = bot width of the tube. 1 ) 

103 formatC* 8ph0 = 1 , f 9 . A , 1 # panel height, ts/t IF to bs/t IF.') 

116 formatC' 8ph =',f9.4,' # model height, ts/t MP to ts/t MP . ' ) 

104 formate* 8pl=',f9.4,' # length of the panel.') 

106 formate' 8nmat=',i2,' inumber of matl types used.') 

107 formate' 8tl=',f9.6,' # thickness of the top cover *) 

108 formate* 8t2- ' , f 9 . 6 , ' i thickness of the tube.') 

109 formate' 8t3~',f9.6,' i thickness of the bot. cover ') 

110 formate'let 8nbuc=',i2,' i = 1, static ana.; =2, buckl ana.') 

115 formate* 8IFIN=',i2,' # = 1, coarse mesh; =2, fine mesh.') 

111 formate' 8nbc =',i2,' i boundary condition indicator') 

112 formate' 8nw =',i2,* i number of the tubes.') 

113 formate' 8nev =',i2,' # even number of tubes if nev=l') 

114 formate' 8k=',i2,5X,' # no. of elements in x-dir. f ) 

c 

c . . . Warning ! ! 

c... The A-tube bottom width is 8b in the mesh processor, 

c... and the B-tube top width is 8a in the mesh processor, 

c 

open e unit = 12 , status 2 ' unknown ' , f ile= ' tmesh . com* ) 

C 

IFIN=1 

t=eA+B)/2. 

K=NINTePL/e3.*t)) 

KEV=K-K/2*2 
IF eKEV.GT.0) K=K+1 
if eK.le.6) K=6 
C 

IF e NBUC . EQ . 2 ) IFIN=2 
IF eiFIN.EQ.2) K=NINTePL/e2.*t)) 

KEV=K-K/2*2 
IF eKEV.GT.0) K=K+1 
IF eiFIN.EQ.2 .AND. K.LE.8 ) K=8 
C 

writee-12, 'e "$mesh")') 
writeei2, *e "OPEN 6'" 'mesh . out ")' ) 
writeei2, 'C "CLEAR -1")') 
writeei2,'e "max 20000 20000")') 
writee 12, ' e * ' EL TYPE 4,2,6")') 

writeei2, 'e "assign IPNO=0 IPEQ=1 IPSU=1 iplc = 0 ")') 

writee 12 e " set syntax on")') 

C 

writee 12, 'e *’#")') 

writee 12 , ' e " i CONODE subroutine")') 

writee 12, ' e f 1 ) ' ) 

writee 12 , ' e ' * sub C0N0 81stl 81st2 81st3 8Itype ")') 

writee 12 , ' e " set echo on")') 

writee 12 , ' e " let 8nnod=Xi PP e 1 ) " ) • ) 

writee 1 2 , ' e " let 8ifn=Xif 1 enlst . nv , 0 ,81st2) ' ' ) ' ) 

writee 12 , ' e " let 81n=Xlf me 8if n , 1 ) " ) • ) 

writee 12 , ' e 1 ' let 8nl = Xibcl e81n , 1 ) " ) ' ) 

writee 12, ' e ' ' let &d = Xrf me8if n , 1 , 0 , 81n) " ) • ) 
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c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


write( 12 , ' ( 

M let Sif n=/£if lCnlst . nv , 0 ,81st3) * 1 ) 1 ) 

writeC 12 , f C 

" let 81n=%lfm(8ifn, 1 ) ' ' ) ' ) 


writeC 12 , 1 C 

" let 8n2=%ibcl(81n,l) * ' ) 1 ) 


writeC 12 , 1 ( 

" let 8d=/£rfm(8ifn,l,0,81n)' ' 

) f ) 

write(12, '( 

" let 8ifn=%ifl(nlst.nv,0 ,81stl ) * ' ) ' ) 

writeC 1 2 , 1 ( 

" let 81n=/;if m(8if n , 1 ) ' * ) ' ) 


writeC 12 , * C 



writeC 12 , 1 ( 

" ;f 2 format • ' " ( lx, i5) " ) • ) 


writeC 12 , * ( 

11 ;f3 format * 1 f *( *• 11 Print N 

odd 1 Coordinates ,ix, 

*> "Node" ' ' 

) ,f )») 


writeC 12 , 1 ( 

" write 6 ;f 2 8nl")') 


writeC 1 2 , 1 ( 

,f write 6 ;f2 8n2 ,, ) r ) 


writeC 12 , 1 ( 

■■ write 6 


writeC 12 , ’ ( 

. t # t t ) • ) 


writeC 12 , 1 ( 

" do ; 20 8n=l,8nnod’ •)') 


writeC 12 , 1 C 

" if Xibcl(81n,8n) ;20,;20,1' 

')*) 

writeC 12 , * ( 

" let 8nr>=/<ibcl(81n,8n) ' ' ) ' ) 


writeC 1 2 , ' ( 

ft write 6 ;f2 8nn r 1 ) 1 ) 


writeC 12 , 1 ( 

* f # 

f)') 

writeC 12 , 1 ( 

• * conode 8nn 8nl 8n2 8Itype 

1 . E+8 * * ) * ) 

writeC 1 2 , 1 ( 

• *i 

it).) 

writeC 12 , * ( 

;20 continue ' 1 ) 1 ) 


writeC 1 2 , * ( 

11 let 8d = %rfm(8ifn,l ,0,81n) 1 * 

)•) 

writeC 12 , ' ( 

• 1 return 1 1 ) 1 ) 


writeC 12 , f ( 

" end 1 * ) • ) 


writeC 12 , r ( 



writeC 12 , * ( 

* *i parameter input* f )*) 


writeC 12 , 1 ( 

"I") 1 ) 



PH2=PH+0 . 5*(TCT+BCT)-CTT 

writeC 12, 101 )B 

writeC 1 2 , 1 02 ) A 

writeC 12 , 1 03 )PH 

write (12, 116)PH2 

write (12, 104)PL 

write( 12 , 114)K 

writeC 1 2 , 1 ( * 1 # 1 f ) 1 ) 

wr i te( 12 , 1 06 )NMAT 

write (12, 107)TCT 

write(12,108)CTT 

write (12, 109) BCT 

write Cl 2 , , ( ,l i f, ) f ) 


Save these for later use 


1 8ofl=8tl/2. ioffset of the top skin. ,f )*) 

• 8of 3=8t3/2 . T 1 ) 1 ) 

• 8of3=-l.*8of3 ioffset of the bottom skin. ,, ) t ) 

1 8of4=8t2/2. ioffset of the tube bottom ,, ) f ) 

f 8of 5=8of 4*- 1 . ioffset of the tube top 1 *) 1 ) 


write( 12 , 1 ( 1 
writeC 12 , 1 ( • 
writeC 12 , ' ( ' 
writeC 12 , 1 ( f 
writeC 12 , ' ( ' 

writeC 12 , f ( 1 f 8ofl=0. 
writeC 12 , 1 ( f 1 8of3=0. 
writeC 12 , 1 ( * f 8ofA=0. 
writeC 12 , 1 ( ' f 8of5=0. 
write (12, * ( f 1 i f * ) 1 ) 

writeC 12, 1 ( 1 ' 8k=8k*2")') 
writeC 12, 1 ( 1 1 8k=8k+l ,, ) , ) 


i offset of the top skin. 1 *)*) 

i offset of the bot.skin. 1 *)') 

i offset of the tube bottom * 1 ) 1 ) 

i offset of the tube top • 1 ) • ) 
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writeC 12 , 1 C 1 ' 8zl=8a/2 . 1 1 ) 1 ) 

writeC 12, 1 ( ■ ■ 8z2=8b/2. •’)') 

writeC 12, f ( 1 1 8z=8zl+8z2 1 * ) • ) 

writeC 12 , 1 C ' ' 8z2=8z*2 . 1 1 ) • ) 

writeC 12, f C 1 1 8z3=8z+8z 1 1 ) • ) 

writeC 12 , 1 ( 1 1 # variables for fine mesh gen . 1 ' ) ' ) 

writeC 12 , ' C 1 • 

writeC 12, 1 C ' ■ 8NE1=8NE+1 f ' ) • ) 

writeC 12, 1 C 1 1 8NE3=8NE+3' 1 ) * ) 

writeC 12, • C " 8NE5 = 8NE+5 1 1 ) 1 ) 
writeC 12, 1 C ■ • 8NE21 =8NE*2+1 1 1 ) * ) 

writeC 12 , • C 1 1 8NE23=8NE*2+3 • 1 ) » ) 

writeC 12 , 1 C • ' 8NE25=8NE*2+5 • ■ ) ■ ) 

writeC 12, , C* , # ,, )*> 

writeC 12, 1 C 1 1 ;f22 format ••».(!... * NE , NE1 , . . . NE25 *"") t ') , > 

writeC 12 , 1 C 1 1 ;f2 format • 1 * * C lx , 41 5 ) * f ) 1 ) 

writeC 12 , 1 C 1 * write 6 ;f22 ")*) 

writeC 12 , 1 C ' * write 6 ;f2 8NE , 8NE1 , 8NE3 , 8NE5 '•)') 
writeC 12 , f C 1 f write 6 ;f2 8NE21 , 8NE23 , 8NE25 •')') 

writeC12, * C ^ 1 # 1 1 ) 1 ) 

writeC12,110)NBUC 
writeC12,115)IFIN 
writeC12,lll)NBC 
writeC 12 , 1 1 2 ) NW 
writeC 12 , ’ C * 1 8nm=2 

writeC 12 , * C f 1 8nn=l 
writeC 12 , 1 C 1 1 # 

WN=NW*1 . 

IF CMODC WN, 2 . ) .GT . 0 . 0)THEN 
NEVf2 
ELSE i 
NEV=1 
ENDIF 

writeC 12, 1 13)NEV 

writeC 12 , 1 C '* # odd number of tubes if nev=2 ,, ) f ) 

i 

writeC 12 , 
writeC 1 2 , 
writeC 12 , 
writeC12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 1 2 , 


writeC 12 , 

*C 1 

.t)l) 







writeC 12 , 

•C"# 

Coarse 

mesh generation 1 

')•) 


writeC 12 , 

'C 11 # 

1 1 ) 1 ) 







writeC 12 , 

•C f •# 

LEFT HALF 

MESH 1 





writeC 12 , 

■C 

')■) 







writeC 1 2 , 

1 C 1 1 i jpoint 1 

1 

1 

0. 

0. 

0. • * ) 

• ) 

writeC 12 , 

' C * ' 

2 

3 

1 

0. 

8a/2 . 

0. • ') 

’) 

writeC 12 , 

*(»' 

3 

5 

1 

0. 

Sz 

0. f •) 

•) 


( i t # . . >. ) 


C 1 1 

let 8ntmp=8nmat 

i.jt) 

c • • 

if 8nbc-2 ;pok 1 ;pok 

.f )»> 

c 1 1 

let 8ntmp-7 


c 1 ■ 

goto ;nxt 

i.) 1 ) 

C rf 

;pok if 8nbc-5 ;nxt 1 ;nxt 


c f 1 

let 8ntmp=7 

1 *)•) 

C ,f ;nxt continue ••)* ) 


C 1 '#• 

')*) 


C 1 'if 

M'l 

8IFIN-1 1 1 ; fin f 1 ) 1 ) 



# mesh number counter. 1 1 ) 1 ) 

# indicator for auto-mesh gen. f, ) f ) 
of filler material . 1 f ) 1 ) 
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wri te( 12 , ' ( 

1 1 sline 

1 13 ' 

')' ) 



writeC 12 , ' C 
*T * ' ) * ) 

' • i jshell 

1,3 

8t3 

8t3 8of3 8of3 8ntmp+5 msh 1400. 

B0 

write( 12 , 1 ( 

')') 





writeC 12 , ' C 

9 ' i jpoint 

A 

1 

3 0. 0. 0.")') 


writeC 12 , ' C 

i « 

5 

3 

3 0. 8a/2 . 0.")') 


writeC 12 , * ( 

i i 

6 

5 

3 0. 8z 0.")') 


writeC 12 , ' C 
writeC 12 , ' C 

V « 

7 

1 

7 0. 0. 8ph")') 


writeC 12 , ' C 

I « 

8 

3 

7 0. 8b/2 . 8ph") f ) 


writeC 12 , 1 C 

« « 

9 

5 

7 0. 8z 8ph") f ) 


writeC 12 , ' C 

' ' sline 

4t6 

:7t9 

:5,8")') 


writeC 12 , * C 






writeC 12 , * C 

"ijshell 

A, 6 

8t2 

8t2 8of4 8of4 8ntmp+4 msh 1400. 

BO 

*XB ' 1 ) * ) 
writeC 12 , * C 
*XW" )') 

' 1 i jshell 

5,8 

8t2 

8t2 0. 0. 8ntmp+2 msh 1400. 

BO 

writeC 12 , ' C 
*XT ' ' ) 1 ) 

• 'ijshell 

7,9 

8t2 

8t2 8of5 8of5 8ntmp+3 msh 1400. 

BO 

writeC 12 , ' C 






writeC 12 , 1 C 

^ 1 i jpoint 

10 

1 

9 0. 0. 8ph ' * ) ' ) 


writeC 12 , ' C 

i • 

11 

3 

9 0. 8b/2. 8ph ' ' ) ' ) 


writeC 12 , ' C 

4 > 

12 

5 

90. 8z 8ph ' ' ) ' ) 


writeC 12 , • C 

' 'sline 

10tl2" 

)') 


writeC 1 2 , ’ C 

• 1 i jshell 

10 

12 8tl 8t 1 &of 1 &ofl 8ntmp+l msh 1400 

• 

*TOP ")') 






writeC 12, 1 C 

"#")') 





writeC 12 , ' C 

1 1 prism & k 8pl 1 ' ) 



writeC 12, f C 

• • mesh • 1 ) 

') 




writeC 12 , 1 C 

• 'merge' * 





writeC 1 2 , f C 

"#")') 





writeC 12, ' C 

"# RIGHT HALF MESH")') 


writeC 12, ' C 

*'#")') 





writeC 12 , 1 C 

• 'i jpoint 

1 

1 

1 0. 0. 0.")') 


writeC 12 , 1 C 

i i 

2 

3 

1 0. 8b/2. 0.")') 


writeC 12 , 1 C 

V V 

3 

5 

1 0. 8z 0.")') 


writeC 12 , 1 C 

' 'sline 

1 13 ' 

')') 



writeC 12 , 1 C 
XT'')') » 

' ' i jshell 

1,3 

8t3 

8t3 8of 3 8of 3 8ntmp+5 msh 1 4 0 0 . 

B0 

writeC12 , 1 C 

"#")•) 





writeC 12 , 1 C 

* ' i jpoint 

A 

1 

3 0. 0. 0.")') 


writeC 12 , 1 C 

V 1 

5 

3 

3 0. 8b/2 . 0. l, ) f ) 


writeC 12 , ' C 
writeC 12 , 1 C 

V • 

6 

5 

3 0. 8z 0. ,, ) , ) 


writeC 12 , 1 C 

f f 

7 

1 

7 0. 0. 8ph* ' ) ' ) 


writeC 12 , ' C 

1 V 

8 

3 

7 0. 8a/2. 8ph")*> 


writeC 12 , 1 C 

V f 

9 

5 

7 0. 8z 8ph")') 


writeC 12 , 1 C 

' • sline 

4t6 

: 7t9 

:5,8")') 


writeC 12 , * C 






writeC 12 , ' C 
*OXB M ) 1 ) 

' ' i jshell 

4,6 

8t2 

8t2 8of 4 8of 4 8ntmp+4 msh 1 4 0 0 . 

B 

writeC 12, 1 C 

f f i jshell 

5,8 

8t2 

8t2 0. 0. 8ntmp+2 msh 1400. 

B 

*OXW f, ) r ) 
writeC 12; 1 C 
*OXT ••>■) 

' 'i jshell 

7,9 

8t2 

8t2 8of 5 8of 5 8ntmp+3 msh 1 4 0 0 . 

B 

writeC 12 , f C 

• '#")') 
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writeC 12 , ’ ( ' 

'i jpoint 

10 

1 

9 

0. 

0. 

8ph " ) ' ) 

writeC 12 , ' C ' 


11 

3 

9 

0. 

8a/2 . 

8ph " ) ' ) 

writeC 12, ' ( ' 

« 

12 

5 

9 

0. 

8z 

8ph " ) ' ) 

writeC 12 , ' ( ' 

1 sline 

10tl2 

t i 

) ') 





writeC 12 ,'( " i jshell 10 12 8tl 8tl 8ofl 8ofl 8ntmp+l msh 1400. 

*T0P ")') 
write(12,'( 1 '#")') 

C 

write(12, '( "prism 8k 8pl")') 
writeC 12, ’ ( 9 'mesh' 1 ) 1 ) 
writeC 1 2 , ’ ( ' 1 trans 8z 2")') 
writeC 12 , * (’■ * merge ' 1 ) ' ) 

write (12/ '( • 'let 8yl = 8z3 bright edge nodes boundary indicator '')* ) 

C 

write(12, •("#")') 

writeC 12/ ' ( 1 * # AUTO PART GENERATION")') 

write (12 / 'C"#' 1 )') 

writeC 12/ *( 1 'set echo on")') 

writeC 12 / ' ( 1 ' if 8nw-l ;11 ;11 1")') 

write(12, '("#")') 

writeC 1 2 , 1 C ’ ' do ;10 8i = 2 , 8nw ' * ) ' ) 

writeC 12/ ' ( " if 8nn-l 1 1 ;13")') 

writeC 12 / ' ( ' ' ditto mesh 1")') 

writeC 12, ' ( 1 » trans 8z3 2")') 

writeC 12 , 1 (' ' merge")') 

writeC 12 , ' ( " let 8nm=8nm+l " ) ' ) 

writeC 12, ' ( ' ' 8nn = 2")') 

writeC 12, ' ( " 8yl=8yl+8z' ’ ) ' ) 

writeC 12 , ' ( " goto ;1 ")’) 

writeC 12, ' C "; 13 ditto mesh 2 ")') 

writeC 12 ,'(' ' trans 8z3 2")') 

writeC 12, ' C ' * merge ")') 

writeC 12 , * ( 1 ' let 8nm=8nm+l " ) ' ) 

writeC 12 , ' ( " 8nn = l")') 

writeC 12 , ' ( " let &z3=8z3+*z " ) ' ) 

writeC 12 , ' C • ' &z3=&z3+8z" ) ' ) 

writeC 12, '( 9 • &yl = 8yl+8z' ’ ) ' ) 

writeC 12 1 remark r,,f Loop complete")') 

writeC 12 ,'("; 10 continue")') 

writeC 12, 1 ( "; 11 continue")') 

write (12, '("§")•) 

C 

writeC12, *C "set echo off")*) 
writeC 12 ,'( "mset 1 dele all")') 
writeC 12 , * ( ' 'mset 2 dele all")') 
write(12, f ( "mset 3 dele all")') 
writeC 12 ,'(" mset 4 dele all")') 
writeC 12, • ( 1 'mset 9 dele all")') 
writeC 12, '( ' 'mset 10 dele all")') 
writeC12, ' ( "mset 11 dele all")') 
writeC 12, '("f") 1 ) 

write(12, '( "mset 1 insert name = T0P ")' ) 
writeC 12 , ' ( * 'mset 2 insert name = B0XW" ) ' ) 
writeC 12 ,'( ^ 'mset 3 insert name=B0T") f ) 
writeC 12, '( ^ 'mset 9 insert name=B0XT " ) ' ) 
write( 12, ' ( ^ 'mset 10 insert name=B0XB* • ) » ) 
writeC 12, '( "mset 11 insert mset=2,9,10 ")') 
write (12, '( ' '#•')') 

C 

write(12, •( • •» FILLER MATERIAL GENERATION' •)• ) A-185 



c 


c 


c 


c 

c 


write(12, '("#")') 

writeC 12, ' C "i det. in FORTRAN pro. how many tubes are there")') 

write(12, ’ ( "# use that as the basis for the following mesh")') 

write(i2, ’(•'#")') 

write( 12 , ' ( " if 8nbc-2 ;f 2 1")*) 

writeC 12 , ' ( " if 8nbc-5 ;f 1 ;f")’) 

write (12, '("•")') 


writeC 12 , * ( ! ' 

ijpoint 1 1 1 0. 0. O. 1 *) 1 ) 

writeC 12 , ' ( ^ ' 

2 3 1 0. &a/2 . 

writeC 12 , ' ( ' ' 

3 3 5 0. &b/2 . Sph 11 ) 1 ) 

writeC 12 , ' ( ' ' 

4 15 0. 0. «ph f •)') 

writeC 12, ' ( ' ' 

sline lt4 , 1 1 f ) * ) 

writeC 12, ' ( ' ' 

ijsolid 1 3 7 so 0 FIL 11 )*) 

writeC 12 , ' ( " # 

. *)•) 

writeC 12 , ' ( ' ’ 

prism 8k 8pl ' 1 ) 1 ) 

writeC 12 , ' ( ' ' 

mesh 1 1 ) 1 ) 

writeC 12 , ' ( ' ' 

merge mesh=l 1 1 ) * ) 

writeC 12 , ' C ' ' 

mset A insert name=FIL 1 * )*) 

write(12,’( ' ' 

mset 4.5 insert mset A 1 *) 1 ) 

writeC 12 , ' ( ' ' 

ditto mset A 1 1 ) 1 ) 

writeC 12 , ' ( ' ’ 

mirror 2 1 f 1 ) 1 ) 

writeC 12 , * ( " • 

• t).) 

writeC 12, * ( " 

if 8nev-l l/lfiod 11 ) 1 ) 

writeC 12, ' ( ' ' 

mirror 3 l")') 

writeC 12, ' ( " 

trans 8z3+8z 2 f, ) f ) 

writeC 12, ' C ' ' 

trans 8ph 3 1 * ) 1 ) 

writeC 12 , ' ( * ' 

merge 1 1 ) 1 ) 

writeC 12 , ' ( * ' 

mset A insert name=FIL 1 ' ) 1 ) 

writeC 12 , ' ( * ' 

eltsen 100 mset A 11 ) 1 ) 

writeC 12 , ’ ( ' ' 

goto ; f ' 1 ) ' ) 

writeC 12 , ' C " ; 

od continue 1 1 ) 1 ) 

writeC 12 , ' ( " 

trans 8z3 2 ,f )*) 

writeC 12 , ' C ' ’ 

merge • 1 ) 1 ) 

writeC 12, ' C ' ' 

mset A insert name=FIL 1 1 ) * ) 

writeC 12, ' C ' » 

eltsen 100 mset AS 1 *) 1 ) 

writeC 12 , ' C ' * ; 

f continue • • ) * ) 


writet 12 ,'( "goto ;fi")') 
writet 12, ' ( "# 


writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 


f ( ,f jfin continue 1 1 ) f ) 

•C * f # • *) f ) 

* C* 1 *# Fine mesh generation 

. ( «f # ••).) 


it)t) 


write C 1 2 , 1 C * * # LEFT HALF MESH* 1 ) 1 ) 

write 02, 1 C * 1 # 1 ’l 1 ) 


Hriicvic.) v w s s 

writeC ^2 , * (" ijpoint 1 3 

1 

0. 

0. 

0. ,, >*) 

writeC 12, ' ( 2 5 

1 

0. 

8a/2 . 

0. 1 •)■) 

writeC 12 , ' C * ' 3 8NE5 

1 

0. 

8z 

0. 11 >•) 

writeC 12, ' ( ' ' 13 1 

1 

0. 

-1. 

0. ,, ) f ) 

write(12, '( "sline lt3")') 





writeC 12, ' C " ijshell 1,3 8t3 

8t3 

8of 3 8of 3 

8ntmp+5 msh 1 A 0 0 

6T")') 





write(12, •("#")') 





writeC 12 ,'(" ijpoint A 3 

3 

0. 

0. 

0. f ')•) 

writeC 12 , ' ( ' ' 5 5 

3 

0. 

8a/2 . 

0. ,, ) , > 

writeC 12 , ' ( " 6 8NE5 

3 

0. 

8z 

0. f ')*) 

writeC 12 , ’ ( " 1A 1 

3 

0. 

-1. 

0. ,, ) f ) 


writeC12, , C ,, # ,f )») 

i .• 
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writeC 12 , 

'C " 

7 1 

8NE23 0 . 

0 . 

8 ph ' ' ) ' ) 

writeC 12 , 


8 &NE1 

8NE23 0 . 

&b/ 2 . 

8 ph " ) * ) 

writeC 12 , 

'C " 

9 &NE3 

8NE23 0. 

&z 

8 ph’ • ) ' ) 

writeC 12 , 

'C "sline 

4t6:7t9 

r-\ 

rv 

CO 

in 




writeC 1 2 , ' C ' ' # ' ' ) ' ) 

write ( 12 , * ' i jshell 4,6 8t2 8t2 8of4 8of4 8ntmp+4 msh 
*XB")') 

write( 12, ' ( * 'i jshell 5,8 8t2 8t2 0. 0. 8ntmp+2 msh 

*XW' * ) ’ ) 

writeC 12 , ' ( ' ’ i jshell 7,9 8t2 8t2 8of5 8of5 8ntmp+3 msh 
*XT ' • ) • ) 

write( 12, ' ( ' '#")•) 


writeC12, 1 ( ' 'ijpoint 

10 

1 

&NE25 

0 . 

0 . 

8ph' 


writeC 12 , ' C ' ' 

11 

&NE1 

&NE25 

0 . 

&b/2. 

8ph ' 

f )') 

writeC 12, ' C ' ' 

12 

8NE3 

&NE25 

0 . 

&z 

Sph' 

')') 


writeC 12 , ' C ' ' sline 10tl2")') 

writeC 12 , ' ( ' ' i jshell 10 12 8tl 8tl 8ofl 8ofl 8ntmp+l msh 
*TOP • ')•) 
writeC 12, 'C • * ) • ) 

writeC12, 'C ' 'prism 8k 8pl")') 


writeC 12, ' C ' 'mesh ' * ) 

• ) 




writeC 12, * C 1 'merge' • 

)') 




write 02, 1 C " # ' ')') 





writeC 12 , ' C * •# RIGHT HALF 

MESH") 

') 


writeC 12, ' C "# " ) ' ) 





writeC 12 , ' C ' ' ijpoint 

1 1 

1 0. 

0. 

0. ")') 

writeC 12 , 'O' 

2 &NE1 

1 0. 

8b/2. 

0. ' ' ) 

writeC 12 , ' C ' ' 

3 &NE3 

1 0. 

&z 

0.")') 

writeC12, 'C ' 'sline 

1 13 " ) * ) 




writeC 12, • C ' ' i jshell 

1,3 8t3 

8t3 8of 3 8of 3 

&ntmp+5 

XT' ' ) * ) 





write 02, ' C " # • ')') 





write Cl 2 , * C ' ' ijpoint 

A 1 

3 0 

. 0. 

0.")') 

writeC 12 , '( " 

5 &NE1 

3 0 

. &b/2 . 

0.")') 

writeC 12 , 1 C 9 ' 

6 8NE3 

3 0 

&z 

0. ")») 

writeC 12 , 'C "# f ' ) • ) 





writeC 12 , 'O' 

7 3 

&NE23 0 

0. 

&ph * 9 ) 1 ) 

writeC 12, 'C " 

8 5 

8NE23 0 

8a/2 . 

&ph ' * ) ' ) 

writeC 1 2 , 'O' 

9 &NE5 

&NE23 0 

&z 

&ph") ') 

writeC 1 2 , ' C ' 'sline 

4t6:7t9 

: 5 , 8 ' ' ) 

') 


writeC12, ' C * ) ■ ) 





writeC^/'O' i jshell 

<4,6 &t2 

8t2 8of 4 8of 4 

&ntmp+<4 

X0XBM)') 





writeC12, ' C * • i jshell 

5,8 8t2 

&t2 0 

0. 

8ntmp+2 


*OXW")') 

writeC 12 ,' C ' ' i jshell 7,9 8t2 8t2 
*OXT • • ) ' ) 

writeC 12, ' C ' '#")') 


8of5 8of5 8ntmp+3 msh 1400. 


writeC 12, ' C ' ' 11 5 8NE25 0 . 8a/2. 8 ph")') 

writeC 12 , ' C ' ' 12 8NE5 8NE25 0. 82 8 ph")') 

writeC12, 'C "sline 10tl2")') 

writeC 12 , ' C ' ' i jshell 10 12 8tl 8tl 8ofl 8ofl 8ntmp+l msh 1400 
*TOP ")•) 
writeC 12 , ' C ' ^# " ) ' ) 


writeC 12, ' C ' 'prism 8k 8pl'')') 
writeC 12 ,' C " mesh ")• ) 
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writeC 12, * C 
writeC 12 , * ( 
writeC 12 , ’ ( 

write C 1 2 , 1 ( 
writeC 12 , 1 < 
writeC 12 , ’ ( 
writeC 12 , ' ( 
writeC 12 , ’ < 
writeC 12 , ’ < 
writeC 1 2 , ’ ( 
writeC 12 , * < 
writeC 12 , 1 < 
writeC 12 , ’ 1 
writeC 12 , ’ < 
writeC 12 , 1 < 
writeC 1 2 , * ( 
writeC 12 , * < 
writeC 12 , 1 1 
writeC 12 , ’ ' 
writeC 12 , * 1 
writeC 12 # 1 
writeC 12,* 
writeC 12 , * 
writeC 12 , ’ 
writeC 12 , ’ 
writeC 12 , * 
writeC 12 , ’ 
writeC 12 , ' 
writeC 12 , 1 

writeC 12 , * 
writeC 12 , * 
writeC 12 , ’ 
writeC 12 , 1 
writeC 12,* 
write C 12 , 1 
writeC 12 , ’ 
writeC 12 , * 
writeC 12 , ’ 
writeC 12 , B 
writeC 12 , 1 
write 02 , 1 
writeC 12 , f 
writeC 12 , * 
writeC 12 , f 

writeC 12 , 1 
writeC 1 2 , 1 
writeC 12 , 1 
writeC 12 , * 
writeC 12 , 1 
writeC 12 , 1 
writeC 12 , 1 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 


’’trans 8z 2”)') 

1 ' merge ” ) ’ ) 

• * let 8yl=8z3 fright edge nodes boundary indicator * ’ ) f ) 


”#”)’) 

"# AUTO PART GENERATION 1 1 ) 1 ) 

.I#.!)*) 

•’set echo on”) *) 

•• if 8nw- 1 ; 21 ;21 1”)*) 

• 1 do ;22 8i = 2 ,8nw • 1 ) ’ ) 

,f if 8nn-l 1 1 ;23”)*) 

,f ditto mesh l’’)’) 

•• trans 8z3 2• , ) , ) 

• 1 merge f 1 ) 1 ) 

•• let 8nm=8nm+l ’ ’ ) ’ ) 

•» 8nn=2 ’ 1 ) ’ ) 

• » 8yl=8y l+8z * 1 ) • ) 

•• goto ; 11 ’ 1 ) 1 ) 

• • ; 23 ditto mesh 2”)*) 

• • trans 8z3 2’ 1 ) 1 ) 

’• merge **)’) 

^ let 8nm=8nm+l ’ ’ ) 1 ) 

(” 8nn=l ’ ’ ) * ) 

(•• let 8z3=8z3+8z • ’ ) 1 ) 

( ■ • 8z3=8z3+8z • 1 ) ' ) 

( • * 8yl=8yl+8z • ’ ) ’ ) 

C • 1 ; 1 1 remark *”’ Loop complete 11 ) 1 ) 
C”;22 continue 1 1 ) 1 ) 

C 1 1 ; 21 continue 1 ’)• ) 


C’*set echo off 1 *) 1 ) 


C f, mset 1 
C ,f mset 2 
C • ’mset 3 
C * ’mset A 
C ’ ’mset 9 
C 1 ’mset 10 
C 1 1 mset 1 1 


dele all”)’) 
dele all”)’) 
dele all”) 1 ) 
dele all")’) 
dele all”)’) 
dele all 1 1 ) 1 ) 
dele all”)’) 


C • ’f ’ ’)’ ) 


C ’ ’ mset 1 insert 
C ’ ’ mset 2 insert 
C ’ ’mset 3 insert 
C 1 ’ mset 9 insert 
C ’ 1 mset 10 insert 
C ’ ’mset 11 insert 


name=T0P • ’ ) 1 ) 
name=B0XW* • ) ’ ) 
name=B0T* 1 ) 1 ) 
name=B0XT ’ * ) 1 ) 
name= BOXB ”)*) 
mset=2,9 ,10 ”)') 


(”#”)') 

C ” # FILLER MATERIAL GENERATION”)*) 

C”#”)’) 

C”f det. in fortran prog, how many tubes are there”)*) 
C”f use that as the basis for the following mesh**)*) 
C”t”)*) 

C ” if 8nbc-2 ;fi 2 1*’)*) 

C ” if 8nbc-5 ;fi 1 ;fi'')*) 

C”#’*)*) 


c** 

ijpoint 1 

1 

1 

0. 

0. 


C” 

2 

8NE1 

1 

0. 

&a/2 . 

0. 

1 

C*’ 

3 

8NE1 

8NE21 

0. 

8b/2 . 

*ph")») 

1 

c * * 

A 

1 

&NE21 

0. 

0. 

&ph • ' ) ' ) 


o o 


writeC 12 , 'C " 

sline 1 14 , 1 " ) ' ) 

writeC 12 , 'C " 

ijsolid 1 3 7 so 0 FIL " ) ' ) 

writeC 12 , 'C 

*)') 

write C 12 , •( " 

prism 8k 8pl 1 ' ) » ) 

writeC 12, ' C ' * 

mesh " ) • ) 

writeC 12 , ' C " 

merge mesh = l " ) ' ) 

writeC 12 , ' C " 

mset 4 insert name = FIL ")') 

writeC 12 , ' C 1 ' 

mset 45 insert mset 4")') 

writeC12, ' C '• 

ditto mset 4 " ) ’ ) 

writeC 12 , * C " 

mirror 2 1 " ) ' ) 

wri teC 1 2 , r C 

')') 

writeC 12, • C " 

if 8nev-l 1 , 1 , ; odd " ) ■ ) 

writeC 12, ' C " 

mirror 3 1 ' ' ) ' ) 


wri teC 12 , 

'C " 

writeC 12, 

'C " 

writeC 12, 

'( " 

writeC 12, 

'C " 

writeC 12, 

»C " 

writeC 12 , 

•C " 

writeC 12 , 

•C"; 

writeC 12 , 

' C " 

writeC 12 , 

•C " 

writeC 12, 

•c " 

writeC 12, 

'C " 

writeC 12 , 

'C "# 

writeC 12, 

•C"; 

writeC 12, 

'C "# 

writeC 12 , 

'C "# 


trans 8z3+8z 2" ) * ) 
trans 8ph 3' ' ) ' ) 
merge 1 1 ) r ) 

mset 4 insert name = FI L ■ • ) 1 ) 
eltsen 10 0 mset 4")') 
goto ;f i " ) ' ) 

; odd continue ")•) 

trans 8z3 2* ' ) • ) 
merge * 1 ) 1 ) 

mset 4 insert name=FI L * • ) 1 ) 
eltsen 100 mset 45")') 


.f) 


r ) 


writeC12, * C "# 
writaC 12, ' C ' •# 
write( 12, 1 C ’ 'nset 
write( 12, * ( ' 'nset 
*ce sheets.' ')*) 
wri te( 12 , '( ' 'nset 
wri te( 12 , ' ( " i 


- ") 

)') 

")') 

insert mset 1 " ) * ) 

insert mset 3 tall nodes in top and bottom fa 


CONODE 


10 insert mset 3'')') 
")') 


write( 1 2 , '<"#")•) 

writeC 12, ' ( ' ' # Boundary condition Setup'')') 
writeC 12, *C"#")') 

wri te ( 1 2 , * ( ' ' t 8nbc=l infinite panel'')') 
writeC 12 , f ( " # 

*')') * 
writeC 12, ' C ' ' t 
*) • ) 

= 4 ends clamped; w/o filler at sides")') 
=5 ends clamped; with filler at sides**)') 


-2 sides simply supported with filler material' 
=3 sides simply supported w/o filler material' 1 


writeC12, ' C ' '# 
writeC 12, ' C "# 
writeC12, 'C ')') 
writeC 12, ' C ' 'if 8nbc-l 1,1, ;p2" ) ' ) 


writeC 12, ' C ' '# 
writeC 12 , ' C ' ' 
writeC 12 , 'C " 
writeC 12 , ' C ’ * 
writeC12, 'C ' ' 
writeC 12, ' C " 


case one, part of a larger panel")') 
bcsys -5 0 10. l.e+9 nset=l")') 

bcsys -4 0 2 0. l.e+9 nset=l")') 

bcsys -5 0 1 8pl l.e+9 nset=l " ) • ) 

bcsys -4 0 2 8yl l.e+9 nset=l")') 

goto ;con")') 


writeC 12 , 'C "#")') 
writeC 12, ' C "i cases 2 and 3, sides are simply supported")') 
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writeC 12, ' ( ' ' ;p2 if Snbc-3 1 1 ;p4")') 

writeC 12 , • ( • ' bcsys *5 0 2 0. l.e+9 nset=10")') 

writeC 12* ' ( ' * bcsys -3 0 2 0. l.e+9 nset=10")') 

writeC 12 , ' C " bcsys - e ) 0 2 8yl l.e+9 nset=10 ,, ) , ) 

writeC 12, * ( ' ' bcsys -302 8yl l.e+9 nset=10")') 

writeC 12, ' C " goto ;con")') 

writeC 12, ' C "t " ) ' ) 

writeC 12, • C • '# cases four 8 five, ends are clamped")') 
writeC 12 , ' C " ;p4 bcsys -4 0 1 0. l.e+9 nset=l")') 
writeC 12 , ' C ' ' bcsys -5 0 10. l.e+9 nset=l")') 

writeC 12 , 1 C ' ' bcsys -3 0 10. l.e+9 nset=l")*) 

writeC 12 , ' C 1 ' bcsys -2 0 10. l.e+9 nset=l")’) 

writeC12,'C"i")') 

writeC 12, ' C ' ' bcsys -4 0 1 8pl l.e+9 nset=l")') 

writeC12,'C" bcsys -5 0 1 8pl l.e+9 nset=l")') 

writeC 12 , ' C ' ' bcsys -3 0 1 8pl l.e+9 nset=l")’) 

writeC 12 , ' C ' ' bcsys -2 0 1 8pl l.e+9 nset=l")') 

writeC 12 ,' C " ;con continue")') 

writeC 12 , ' C ' * # - ">'> 

writeC12,'C"#")') 

writeC12, 'C ' 'nset 2 insert nset 1")') 

writeC 12 , ' C ' 'nset 2 mask volu=-999. 999. -0.01 0.01 -999. 999.") 
*' ) 

writeC12, ' C "nset 2 list #all nodes on left side.")') 

writeC 12, ' C "#• ' ) * ) 

writeC12, 'C "nset 3 insert nset 1")') 

writeC 12 , ' C ' 'nset 3 mask volu=-999. 999. 8yl-0.01 8yl+0.01 -999. 9 
*99.")!) 

writeC 12, ' C "nset 3 list #all nodes on right side.")') 

writeC 12, •("•")*) 

writeC 12, ' C "nset 4 insert nset 1")') 

writeC 12 ,' C ' 'nset 4 mask volu=-0.01 0.01 -999. 999. -999. 999.'') 

*•).,, 

writeC 12 ,' C ' 'nset 4 list tall nodes on front end.")') 

writeC 12, ' C "#" ) * ) 

writeC12, *C "nset 5 insert nset 1")') 

writeC 12, ' C ' 'nset 5 mask volu=8pl-0 . 01 8pl+0.01 -999. 999. -999. 9 
*99.")!) 

writeC 12, 'C "nset 5 list *all nodes on back end. ")') 

writeC 12, * C "# - " > ' > 

writeC 12, ’ C "t" ) ' ) 

writeC 12, ' C "nset 6 insert nset 2")') 
writeC 12, ' C "nset 6 mask nset 4")') 

writeC 12, ' C * 'nset 6 list Ofront left corner nodes")') 

writeC 12, ’ C ' '#" ) * ) 

writeC12, 'C "nset 7 insert nset 4")') 
writeC12, 'C "nset 7 mask nset 3")') 

writeC 12, 'C "nset 7 list Ofront right corner nodes")') 

writeC 12, •(**•'*)*) 

writeC J2, ' C ' 'nset 8 insert nset 3")') 
writeC12, 'C "nset 8 mask nset 5")') 

writeC 12, ’C "nset 8 list »back right corner nodes")') 

writeC 12, ' ("•")' ) 

writeC12, ' C "nset 9 insert nset 5")') 
writeC12, 'C "nset 9 mask nset 2")') 

writeC12, 'C "nset 9 list iback left corner nodes")') 


C 
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writeC 12 
writeC 12 
writeC 12 
writeC 12 
wri te( 12 , 

writeC 12, 
writeC 12 , 
writeC 12 , 

writeC 12 , 
writeC 12 , 
writeC 12 , 
*")') 
writeC 12 , 
writeC 12 , 
writeC 1 2 , 
writeC 12, 
*")') 
writeC 12 , 
writeC 12 , 
write C 1 2 , 
writeC 12, 
*' ) 1 ) 
writeC 12 , 
writeC 1 2 , 
writeC 12, 
writeC 12 , 
writeC 12, 
*)') 

writeC 12, 
writeC 1? , 
write(12, 

writeC 12 , 
writeC 12 , 
writeC 12, 
wri teC 12 , 1 
writeC 12 , 1 
writeC 12 , 1 
writeC 12 , 1 
write C 1 2 , ' 
writeC 12, ’ 

writeC 12, 1 
writeC 12 , 1 
writeC 12 , 1 
*■ ) ') 

writeC 1 2 , 1 
writeC 12, ' 
writeC 1 2 , 1 
writeC 12 ,' 
writeC 12, 1 
*. 999 . • • ) ' 
writeC 12, 1 
writeC 12, ' 
writeC 12 , ' 
writeC 12 , ' 
writeC12, 1 
*')') 


'C "# 

'C'nset 76 insert nset 9 
* C'nset 77 insert nset 8 
'C'nset 78 insert nset 6 
'C'nset 79 insert nset 7 


'C "# 
'C "# 
’C * '# 


")') 

All Nodes in the Above Sets Are in the f ' ) 1 ) 
Top and Bottom Face Sheets. »»)*) 


'("# it)») 

'C'nset 99 insert nset 7*')') 

'C'nset 99 mask mset 3 #front bottom-right corner node 

1 C f 1 nset 99 list")') 

1 C ,, nlist 99 insert nset 99")') 

'("•")') 

' C'nlist 98 insert node = l #front bottom-left corner node 

■("nlist 98 list " ) ' ) 
f C"#")’) 

1 C'nset 97 insert nset 8")') 

1 C'nset 97 mask mset 3 #back bottom-right corner node' 

' C * ' nset 97 list")') 

'C'nlist 97 insert nset 97")') 

("#")•) 

f C 1 'nset 96 insert nset 9")') 

C 1 f nset 96 mask mset 3 ttback bottom-left corner node’' 

C 1 'nset 96 list ' ' ) ' ) 

C*'nlist 96 insert nset 96'*)') 

C"# - •')•) 


C'nset 76 del nlist 96 
C 1 'nset 77 del nlist 97 '•)') 

C'nset 78 del nlist 98 ")') 

C ' 'nset 79 del nlist 99 ")') 

C "* ")') 

C ' 'nset 76 list ' 1 ) * ) 

C ' 'nset 77 list • ' ) ' ) 

C ' 'nset 78 list " ) ' ) 

C'nset 79 list ")») 

(*'#")•) 

C'# all nodes on left edge.")') 
C'nset 80 insert volu = -999. 999. -0.01 

i 

("mset 6 insert mset 1,3'')') 

C ' ' mset 6 mask nset 80'')') 

C "#") • ) 

C"# all nodes on right edge.") 1 ) 
C'nset 81 insert volu = -999. 999. 8yl-0. 


0.01 -999. 999.' 


01 &yl+0 . 01 -999 


C'mset 5 insert mset 1,3")') 

C*'mset 5 mask nset 81")') 

C'#")') 

C'i all nodes on front edge.")') 

C'nset 82 insert volu=-0.01 0.01 -999. 999. -999. 999.' 
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wri te( 12 , ’ < 

writeC 12 , * < 
writeC 12, * < 
write ( 1 2 , • < 
writeC 1 2 , ’ < 
writeC 12 , * ( 
*. 999 . 1 • ) • : 
writeC 12 , • < 
writeC 12 , 1 1 
writeC 1 2 , • l 
writeC 12 , • 1 

write C 1 2 , 1 
writeC 12 , ’ 
writeC 12 , * 
writeC 12 , • 
writeC 12 , * 
writeC 12 , 1 
writ^C 12 , • 

writeC 12,' 
writeC 12 , ’ 
writeC 12 , 1 
writeC 12 , ’ 
writeC 12 , • 

writeC 12 , • 
writeC 12 , 9 
writeC 12,’ 
writeC }2 , * 
writeC 12 , ’ 
writeC 12 , * 
writeC 12 , 1 

writeC 12 , • 
writeC 12 , 9 
writeC 12 , ’ 
writeC 12 , 9 
writeC 1 2 , • 
writeC 12 , • 
writeC 12 , f 
writeC 12 , ’ 
writeC 12 , f 
writeC 12 , ' 
writeC 12, ' 
writeC 12, 1 
writeC 12 , 9 
writeC 1 2 , f 
write C 12 , * 
writeC 12 , • 
writeC 12 , 1 
writeC 12 , 1 

writeC 12 , 1 
writeC 12 , 1 
writeC 12 , 9 
writeC 12 , 9 
WriteC 12 , 9 
writeC 12 , ’ 


••NSET 88 INSERT NSET 82 f, ) f ) 

r, mset 7 insert mset l^”) 1 ) 

1 'mset 7 mask nset 82”) f ) 

”#”)’) 

••# all nodes on back edge.”)’) 

1 *nset 83 insert volu = 8pl“ 0 . 01 8pl+0.01 “999, 999. ”999 

••mset 8 insert mset 1,3' f ) f ) 

••mset 8 mask nset 83”)*) 

”#”)’) 

> «# •')•) 

••nset 80 del nset 82 ,, ) f ) 

•’nset 80 del nset 83’ 1 ) 1 ) 

••nset 81 del nset 82 1 ’)') 

••nset 81 del nset 83”)’) 

(••nset 82 dele nset 6 7”) f ) 

(••nset 83 dele nset 9 8”) f ) 


( ”# • • 

)’) 



( • ’nlist 

80 

insert nset 

80 ” ) * ) 

( ^ ’nlist 

81 

insert nset 

81 ” ) 1 ) 

(••nlist 

82 

insert nset 

82 ”)•) 

( • ’nlist 

83 

insert nset 

83”)*) 

( • ’nlist 

88 

insert nset 

88”) f ) 

(”#”)•) 




( • ’nlist 

80 

list”)’) 


( ’ ’nlist 

81 

list”)') 


C ’ •nlist 

82 

list”) 1 ) 


( ’ ’nlist 

63 

list”) 1 ) 


( ’ • nlist 

88 

list”)’) 



(••§ •’)•) 


(”#”)') 

( * • i Conode 1 • ) • ) 
(”#”)’) 


( • ’set 

echo on” )’ ) 





( ’’Let 

81 type= -1 




”)•) 

( ’ ’ 

call cono 80 

96 

98 

8 I type 

tt)’) 

( ” 

call cono 81 

99 

97 

8 I type 

”)•) 

C” 

call cono 83 

97 

96 

8Itype 

”)•) 

( • •Let 

81 type= -2 




”)•) 

(•• 

call cono 80 

96 

98 

8 I type 

”)•) 

(” 

call cono 81 

99 

97 

8 I type 

’•)•) 

( • ’ 

call cono 82 

98 

99 

8 I type 

”)•) 

c • 1 

call cono 63 

97 

96 

8 I type 

”)•) 


(”#”)’) 

(••DOFEQU 1 nlist=96 , 97 , 0, nset=76,77 •*)■) 

(’•DOFEQU 2 nlist=96 ,97 , 0, nset=76,77 *•)•) 

(••DOFEQU 1 nlist=98 , 99 , 0, nset=78,79 ••)•) 

(’•DOFEQU 2 nlist=98 , 99 , 0, nset=78,79 ••)•) 

(••# Corner DOF sup. for rigid body stability ••)* ) 
(”#”)•) 

( ' • DOFSUP 1 NSET =88••) , ) 

( • ’ dof sup 2 nlist=98 • • ) 1 ) 

(•’dofsup 3 nlist=98 • • ) 1 ) 

( • • dof sup 3 nlist 99 1 ')') 


write! 12 , '("#")•) 
write ( 12, ’ ( * 'finish' ' ) » ) 
writeC 12, ' ( ' 'stop* ' ) ' ) 
close(unit=12) 
return 
end 

SUBROUTINE tbset 

fbset : DIAL band, setup generation. 
open(unit=12 , status= ' unknown ' ,f ile= ' tbset . com* ) 


writeC 12, ' ( ' ' $band' ' ) ' ) 
writeC 12, '(’ ' open 6 "band . out" ")» ) 
writeC 12, ' C ' ' START -1")’) 
writeC 12 , ' C * ' REGPS")') 
writeC 12, ' C * ' BAND'')') 
writeC 12 ,' C ' ' STOP'*)') 
writeC 12, ' C • '$ setup' ' ) * ) 
writeC 12 , ' C ' ' open 6 "setup . out" ")' ) 
writeC 12, ' C * ' START -1")') 
writeC 12, ' C ' ' SETUP")') 
writeC 12, ' C ' ' STOP")') 
closeCunit=12) 
return 
end 

THAT ■■ dial material runstream generation 
SUBROUTINE tmat 

common /tgeom/ A , B , PH , PL , NW , K , NBC , NBUC, TCT , BCT ,CTT , TAR , NDF , ND ,MS 
common /bmat/ NMAT,E1(3,7) ,V1(3,7) ,G1(3,7) ,NF 
common /taml/ AMLSC 6 ,6) ,AMLA( 6 , 6 ) , AMLT( 6 ) ,DA 

common /twall/ MWT ,MWB , HWC , NWTC 99 ) , NWBC 99 ) , NWC( 99 ) , TT( 99 ) , BTC 99 ) # 
*CT ( 99 ) ,AT(99) , ABC 99) , ACC 99) 
common /load/ XLC4) ,SL(A) ,XE,XS,SE, SS ,TMPD 

NMAT -- Number of Material. 

E(i,j) f Elastic Modulus. 

V(i,j) -- Poissons 1 Ratio. 

G(i,jV -- Shear Modulus. 

AMLSC i , j) -- AML Failure Curve Shear Allowables. 

AMLACio) -- AML Failure Curve Angles. 

AMLT(j) AML Failure Curve Temperature. 

MWT -- Number of Plies in Top Cover Sheet. 

MWB -- Number of Plies in Bottom Cover Shet. 

MWC -- Number of Plies in Core Tubes. 

NWT -- Material Number for Top Cover Sheet. 

NWB -- Material Number for Bottom Cover Sheet. 

NWC Material Number for Core Tubes 

1 

TT -- Top Face Sheet Ply Thickness. 

AT (MWT ) -- Top Face Sheet Ply Angles. 

TCT Total Thickness of the Top Face Sheet. 

BT Bottom Face Sheet Ply Thickness. 

BA(MWB) -- Bottom Face Sheet Ply Angles. 

BCT -- Total Thickness of the Bottom Face Sheet. 

CT -- Core Tube Ply Thickness. 

AC (MWC) Core Tube Ply Angles. 



c 


CTT -- Core Tube Thickness. 
DA -- AML Invoking Indicator. 


open ( unit = 12 , status= 1 unknown 1 , file- 1 tmat . com* ) 
c 

writeC 12, 1 C 1 1 $matl * 1 ) * ) 

writeC 12 ,'(• f open 6 "mat 1 . out” • f ) 1 ) 

wr i te( 12 , 1 C 1 1 START -l**)*) 

writeC 12, 1 ( f 1 set syntax on' 1 )’) 

C 

100 formate 1 MATISO • , i2 , 2x ,el2 . 5 ,2x ,el2 . 5) 

101 formate • MATORT * , i2 , 2x , el2 . 5 , 2x , el 2 . 5 , 2x , el2 . 5 , 1 , > 1 ) 

102 formate lx # el2 . 5 , 2x , el2 . 5 , 2x ,el2 . 5 , ’ ,>*) 

103 formate lx , el 2 . 5 , 2x ,el2.5,2x,el2.5) 

C 

do 10 i=l,NMAT 

writee 12 , 1 01 ) i , 

*E1C1 ,i) ,ElC2,i) ,ElC3,i) 

writee 12 i 102) VI e 1 j i ) »Vl(2ii) ;Vl(3ii) 
writeC12,103)GlCl ; i) ;Gl(2#i) ,GlC3,i) 

10 continue 

C 

ntmp=nmat 

if e NBC . eq . 2 . or . NBC . eq . 5 ) then 
ntmp=7 

if (NF.eq.l) then 

writeC12,100)ntmp,ElCl ,ntmp) ,V1C1 ,ntmp) 

elseif CNF.eq.2) then 

writeC12,101)ntmp,ElCl ,ntmp) ,ElC2,ntmp) ,El(3,ntmp) 
writee 12,102)Viei,ntmp),Vl(2,ntmp),Vl(3,ntmp> 
writeC12,103)GlCl ,ntmp) ,GlC2,ntmp) ,Gl(3,ntmp) 
endif 

endif • 

C 

1 0A formate * WALLAM 1 , 2x , i2 , 2x , i2 , 1 ,> 9 ) 

105 f ormat C lx , f 16 . 6 , ■ , > f ) 

106 formate lx , f 16 . 6 ) 

107 formate lx , i2 ,' , > 1 ) 

108 formate • MAT ALL 1 , 2x , i2 , f , > ' ) 

109 formate lx , f 8 . 3 , f , 1 ,f 8 . 5 , r >>') 

110 f ormat e lx , f 8 . 3 ) 

111 f ormat e lx, f 8. 3, * , ' ,f8.5) 
c 

c top face sheet layup 

c 

ntmp=ntmp+l 

writeC 12, 10A)NTMP, MWT 

do 20 i=l , MWT 

write(12,107)NWTei) 

20 continue 

do 21 i=l ,MWT 

writeC 12 , 105) TTei ) 

21 continue 

do 22 i = 1 , MWT - 1 

write (12,105) AT Ci) 

22 continue 

writeC 12, 106) AT (MWT) 
ntmp=ntmp+l 


c 

c 


core layup--l 
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c 


mt=mwc+mwc 

write (12, 104) NTMP , MT 
do 23 i = l , HWC 

write (12, 107 )NWC(i ) 

23 continue 

do 24 i=MWC ,1,-1 

write(12,107) NWCC i ) 

24 continue 

do 25 i= 1 , MWC 

write(12,105)CT(i) 

25 continue 

do 26 i=MWC ,1 , - 1 

write(12,105)CT(i) 

26 continue 

do 27 i - 1 , MWC 

write(12,105)AC(i) 

27 continue 

do 28 i=MWC ,2,-1 

write(12,105)AC(i) 

28 continue 
write(12, J06)AC(1) 
ntmp-ntmp+1 

c 

c core layup 2 

c 

mt=mwc 

write ( 12 , 1 04 ) NTMP , HT 
do 29 i = l , MWC 

write (12, 107) NWCC i ) 

29 continue 

do 30 i = 1 , HWC 

write(12,105)CT(i) 

30 continue 

do 31 i=l,MWC-l 

write(12,105)AC(i) 

31 continue 

write (12, 106 ) AC (MWC) 
ntmp=n'tmp+l 
c 

c ■ iore l^yup 3 

c 

mt=mwc 

write( 12 , 1 04)NTMP ,MT 
do 32 i= 1 , MWC 

wr ite( 12 , 1 07 )NWC( i ) 

32 continue 

do 33 i=l , MWC 

write(12,105)CT(i) 

33 continue 
c 

do 34 i= 1 ,MWt- 1 

write(12,105)AC(i) 

34 continue! ) 

wri te( 12 , 1 06 ) AC (MWC) 
ntmp=ntmp+l 
c 

c bottom face sheet layup 


c 


write( 1 2 , 1 04 ) NTMP , MWB 
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35 


36 

37 

c 

c 

c 


39 

38 

C 


c 

c 

c 


c 


do 35 i = 1 , MWB 

write (12>107) NWB C i ) 
continue 
do 36 1=1, MWB 

write (12, 105)BT(i) 
continue 
do 37 i= 1 , MWB- 1 

write (12, 105)AB(i) 
continue 

wri te( 12 , 1 06 ) ABC MWB ) 
AML CURVE INVOKING 


if ( DA . eq . 1 . ) then 
do 38 i= 1 , NMAT 
writeC 12 , 1 08) i 
do 39 j=l,5 

write ( 1 2 , 1 09 ) AMLA( j , i ) , AMLS(j,i) 
continue 

write(l2 , 1 1 1) AMLA( 6 , i ) , AMLS(6 , i ) 
continue 
endif 

write( 1 2 , 1 ( 1 1 MATL 1 1 ) 1 ) 
wri te( 12 , * ( 1 * ST0P ,, ) , ) 
close( uni t= 12 ) 
return 
end 


TLOAD -- load runstream generation 
SUBROUTINE TLOAD 

common /load/ XLC4) ,SL(4) , XE,XS,SE,SS,TMPD 

open( unit=12 , status= 1 unknown 1 ,file= 1 tload.com 1 ) 

xsr= - 1 . *XL ( 1 )/2 . 

xsl=XL ( 1 )/2 . 

xeb=-l .*XL(2)/2. 

xef =XL ( 2 )/2 . 

sl=SL ( 1 )/2 . 

s2 = - 1 . *SL ( 1 ) /2 . 


wri te( 12 , 
wri te( 12, 
writeC 12 , 
writeC 12 , 
writeC 12, 
write( 12, 
write( 12 , 
write( 12 , 
wri te( 12 , 
wri te( 12 r 
writeC 12 , 
writeC 12 1 
writeC 12 , 
writeC 12, 
writeC 12, 
writeC 12 , 
writeC 12 , 


'C 

f C 

•( ' 
f ( 

*( 

•c 

• C 1 

•c 

*( 

*( 

1 ( 1 
■ C 1 
f C 

1 c 

f C 

'C 


1 $ load 1 1 ) 
1 open 6 
1 start 1 1 
1 lease 1 
1 # axial 
1 pline 1 
1 pline 1 
1 # axile 
1 pline 1 
1 pline 1 
1 # shear 
1 pline 1 
1 pline 1 
1 pline 1 
1 pline 1 
1 load 11 ) 
1 stop 11 ) 


•) 

"load 

)•) 

1 1 ) 1 ) 
line 
f ,flO 
1 ,flO< 
line 
1 ,flO, 
1 ,flO. 

line 
1 ,flO. 
1 ,flO. 
*^10. 
1 ,flO. 
') 

• ) 


out" 11 >•) 


loads in front and back ends. 11 ) 1 ) 
3, 11 11 0 1 mset=7 1 1 ) 1 )xeb 
3, 11 11 0 3 mset 8 vl )*)xmf 
loads in right and left sides. 1 f ) f ) 
3, 11 12 0 2 mset 5 l, ) f )xsl 
mset 6 ,, ) , )xsr 


3, 11 12 0 4 
loads. 1 1 ) • ) 
3, 11 12 0 1 
3, 11 12 0 3 
3, 11 11 0 4 
3 , 1 1 11 0 2 


mset 7 1 1 ) 1 )s2 
mset 8 1 1 ) 1 )sl 
mset 6 1 1 ) 1 ) s2 
mset 5 ,, ) 1 )sl 


c 


return 
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end 


c 

c TSOLVE --solve (and cluster) runstream generation 

c 

SUBROUTINE tsolve 

common /tgeom/ A, B, PH, PL , NW , K , NBC , NBUC , TCT , BCT , CTT , TAR , NDF , ND , MS 

common /load/ XL ( A ) , SL ( A ) , XE , XS , SE , SS , TMPD 

open ( uni t= 12,status=* unknown * , f i le= ' tsolve. com’) 

100 formate 1 loads f ,i2,fl2.4) 

C 

xs=XL ( 1 )/2 . 
xe=XL ( 2 )/2 . 
s=SL ( 1 )/2 . 
c 

if (NBUC.eq.2) then 

write (12, '( 1 'SsolveDP* •)') 
writeC 12 ,'( 1 ' open 6 "so 1 ve . out” * ' ) * ) 
write( 12 , * ( 1 1 start'*)*) 
wri te( 12,100) 1, 0.1 

wri te( 12 , * ( ' * SAVE,D**)') 
wri te( 12 , * ( * * SAVE,S»*)') 
wri te( 12 # * ( ’ * ASSIGN IMPR = 1")*) 
write ( 1 2 , ' ( * 1 EIGEN 2*')') 
write( 1 2 , ' ( * ' solve*')*) 
writeC 12',* (' ' stop'*)*) 
c 

wri te( 12 , 1 ( * * SclusterDP ' * ) * ) 

wri te( 12 , 1 ( * * open 6 "CLSTR . out” * * ) * ) 

write( 12 , * ( ' ' start**)') 

writeC 12 , * ( 1 * assign mxit= 40 **)*) 

write ( 12 , ' ( ' ’ shift *',i3)*)MS 

write ( 1 2 , * ( * ' save*')') 

writeC 1 2 ,*(* * matrix : file ,ki ki • * ) • ) 

write( 12 , ' ( " clust 2")*) 

write( 1 2 , ' ( * * stop*')') 

C 

elseif ( NBUC . eq . 1 ) then 

write( 12 , * ( ' * SsolveDP ' * ) * ) 

wri te( 12 , ' ( * * open 6 "solve . out” '*)* ) 

write( 12 , ' ( ' * start**)*) 

wr ite( 12,100) 1, 1. 

wr ite( 12 , * ( * * SAVE,D **)') 

writeC 12, * ( * * SAVE,S •')') 

C writeC 12 , ' ( * ' NPRINT ,D **)•) 

C writeC 12 , ' ( * 1 EPRINT,S *')*) 

write( 1 2 , * ( ' * solve*')*) 
write( 12 , ' ( * * stop”)*) 
elseif ( NBUC . eq . 3 ) then 

writeC 12, * ( ' ' SsolveDP*')') 

wri te( 1 2 , * ( * * open 6 "solve . out" ' ' ) * ) 

writeC 12 , * C * • start -1")*) 

writeC 12, ' C ' * static 2 ,, ) , ) 

writeC 12 , ' ( 1 * branch 0 1 1 **)') 

writeC 12 , ' C * * load 1 1. 1. I.**)') 

writeC 12 ,* C * * limit load'')*) 

if ( NF . ge . 1 ) then 

writeC 12, 1 C * 1 Target 'Sf^.S," Node= 1 ' , 2i A) • )TAR ,NDF , ND 
else 

writeC 12, '( ' » Target' • ,f 12.5)' )TAR 
endif 
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write(12, '( 1 f save,d") v ) 
wri te C 1 2 , 1 ( * * save,s M )') 

wri te( 12, 1 ( f 1 assign slf=0.5, relr=0.02, stol=0.25, gtol=0.25 ,f 

*)*) 

wri te( 12 , * ( * 1 solve l ,f ) f ) 
wri te( 1 2 , 1 ( 1 1 stop")') 
c write(12,'( ,f 

endif 

return 

end 


c NTOKEN -- utility I/O subroutine 

c by Dan Rickhoff LMSC 81-12; 

c modification by L . L. Chou LMSC 81-12. 

c 

subroutine nreal (ntk , ra ) 

parameter ( maxtkn = 25 ) 
character a*127, tkns(maxtkn) XI 0 
dimension lentk ( maxtkn) ,ra(maxtkn) 
c 

100 ierr=0 

call getlinC 5, a, irdata, *910 ) 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 


do 200 i=l ,ntk 
r = ra(i) 

call rintrpC tkns(i), lentk(i), r, *991 ) 
ra(i) = r 
go to 200 

991 ierr=ierr+l 

wri teC 6 , * ( 19x, •'Not a real •»)•) 

200 continue 

if (ierr .ge. 1) go to 100 
return 
999 continue 

write(6, , ( ,f ERROR return from getkns ,, ) t ) 

910 continue 

write(6, , C fl End-of-File return from "getlin" 9 9 ) 1 ) 
return 
end 

subroutine nintg (ntk , ia ) 

parameter ( maxtkn = 25 ) 
character a*127, tkns(maxtkn)*10 
dimension lentk (maxtkn) , ia( maxtkn) 

100 ierr=0 

call getlin( 5, a, irdata, *910 ) 

call getkns( a, irdata, tkns, lentk, ntk, *999 ) 

do 200 i=l,ntk 
intgr = ia(i) 

call iintrp( tkns(i), lentk(i), intgr, *992 ) 
ia(i) = intgr 
go to 2Q0 

992 ierr=ierr+l 

write(6, f ( 19x, ,f Hot an integer •'l 1 ) 

200 continue 

if ( ierr .ge. 1) go to 100 
return 
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c 


999 continue 

wri te( 6 , 1 ( 1 1 ERROR return from getkns ,f ) f ) 

910 continue 

write^j'C 11 End-of-File return from "get lin” 1 • ) 1 ) 
return 
end 


c 


999 

910 


c 

c 

c# 

c# 

c# 

c# 

c 


c 

990 


c 

c 

c# 

ct 

c* 

c# 

c 


c 

990 


c 


subroutine stitle(sline) 

character a*127, tkns(l)*60, sline*(*) 
dimension lentk(l) 

call getlinC 5, a, irdata, *910 ) 
ntk = 1 

call getkns( a, irdata, tkns, lentk , ntk, *999 ) 
sline= tknsC 1 ) ( 1 : lentk(l)) 
return 

continue 

write(6, , ( ,f ERROR return from getkns ,, ) f ) 
continue 

write(6,'(" End-of-File return from "getlin” 1 1 ) * ) 
return 
end 

subroutine rintrpC tkn, lentk, r, * ) 

Read a real number, R, from a character string, TKN, of length LENTK. 
(Note that blanks in the strings are ignored. Leading and/or trailing 
blanks are ignored, which is OK, but interior blanks are squeezed out, 
which is not OK; try to fix this sometime.) 

character tkn*(*) 

if ( lentk .eq. 0 ) return 

read( tkn( 1 : lentk ) , 1 C bn , f 80 . 0 ) 1 , err=990 ) r 
return 

continue 
return 1 
end 

_ t 

subroutine iintrpC tkn, lentk, i, * ) 

Read a integef number, I, from a character string, TKN, of length LENTK. 
(Note that blanks in the strings are ignored. Leading and/or trailing 
blanks are ignored, which is OK, but interior blanks are squeezed out, 
which is not OK; try to fix this sometime.) 

character tkn*(*) 

if ( lentk .eq. 0 ) return 

read( tkn( 1 : lentk ) , '(bn, 180)*, err=990 ) i 
return 

continue 
return 1 
end 

subroutine getknsC a, irdata, tkns, lentk, ntk, * ) 


c 

c# 


in 


a 


The given character string containing the input line. A-199 



c# 

c# 

c 

eft 

eft 

c 

eft 

eft 

eft 

eft 

c 

eft 

eft 

c 

eft 

c 

eft 

eft 

eft 

eft 

eft 

eft 

eft 

c 

eft 

eft 

c 

eft 

eft 

c 

eft 

eft 

eft 

eft 

eft 

c 

eft 

eft 

eft 

eft 

eft 

eft 

c 

eft 

eft 

eft 

eft 

eft 

c 

eft 

eft 

c 

eft 

eft 

c 

eft 

c 

eft 

eft 


If this string is blank (input IRDATA = 0) then all 
NTK returned tokens will be blank with zero length. 

in irdata . . The input line in string A extends to this character 

position . 

out tkns .... The character array of tokens. The character lengths 
of these array elements limit the lengths of input 
tokens; tokens are correctly parsed but then truncated 
to this length, 

out lentk ... An integer array with the string lengths of the tokens 
(after any necessary truncation). 


in ntk The number of tokens to be parsed from the line. 

x Alternate RETURN in the event that a string token 

i initiated by an apostrophy had no trailing apostrophy, or 


the next character after the trailing apostrophy was not 
a delimiter (or end-of - line) . 

NOTE: The arguments that had been interpreted up to the 
point that the error occured are returned; the 
will be blank. 

Parses an "input line" contained in a given string to find the first NTK 
tokens on the line. 

Tokens are delimited by beginning-of -line , commas, spaces, tabs, or 
end-of-line. Tabs are equivalent to (single) spaces. 

A single asterisk (X) input token is recognized as a "null" token, for 
which the retuned string is blank and returned length is zero. Some users 
may find entry of the null token preferable to that of a comma with no 
preceeding token, or two adjacent apostrophies (see the next 
paragraph) . 

If a token is enclosed within apostrophies then it may contain commas, 
spaces, or tabs. The returned length of such a token is the number 
number of character positions between the pair of apostrophies . 

Note that, for this length calculation, tabs are a single character . 
Contigous alphanumeric strings (no embedded delimiters) do not need to be 
enclosed within apostrophies. 

There is no provision for including apostrophies (•) or the comment 
character (the hash symbol, ft; see routine 6ETLIN) within a token, 
i.e., they may not be "escaped". Strings enclosed within apostrophies 
may contain asterisks; these will not be misinterpreted as 
null tokens. 

A line with only "null" data will minimally contain (before an optional 
comment) either a null character, a comma or two adjacent apostrophies. 

Tokens are placed, left justified, into the character array TKNS. 

The tokens may be truncated in order to fit into the given TKNS array. 

The lengths of the returned tokens are placed in the LENTK array. 


Arrays for the returned tokens and their correcponding 
character lengths. 
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character tkns( *)*( *) 
dimension lentkOO 


Strings for the input line, the "curent" character on the 
line and delimiter characters (space, tab, and comma). 


character a*(*), c*l , tab*l, space*l , comma*l , apos*l, null*l 

save space , comma , apos , null 

data space /• '/, comma apos null /•*•/ 

tab = char(9) 

maxlen = len( tkns(l) ) 


c# Initialize ntk tokens to blanks. 


do 50 i=l ,ntk 
tkns(i) = * 1 

lentk(i) = 0 
50 continue 

if ( irdata .eq. 0 ) return 


c 

c # Something is on the line (before any comment), 

ci Parse the tokens (up to NTKN of them). 

c 


is = 0 
itkn = 1 
200 continue 

# Move along the line looking for a token or a comma (null token), 
is = is + 1 
c a( is : is) 


if ( c.eq.tab .or. c.eq. space ) then 
c # Move to next character; to continue looking for token, 

go to 200 

else if ( cieq. comma ) then 

c # No* token found before this comma indicates null token, 

if ( itkn .eq. ntkn ) return 
itkn = itkn + 1 
c 

if ( is . eq . irdata ) return 
c # Move to next character; look for next token, 

go to 200 
else 

300 continue 

c # We are at the left-most character of a non-null token, 

il = is 

if ( c .eq. apos ) then 

c ,# We look for the trailing apostrophy for this w quoted string". 

i*f v C is . eq . irdata ) return 1 
450 continue 

is = is + 1 
c = a(is:is) 
if ( c .eq. apos ) then 
length * is - il - 1 
if ( length .gt. maxlen ) then 
length = maxlen 
endif 

lentkC itkn ) = length 

if ( length .gt. 0 ) tkns( itkn ) = a( il+1: il+length ) 
if ( is . eq . irdata ) return 
is = is + 1 
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c = a(is:is) 

if ( .not. (c.eq. space .or. c.eq.tab .or. c .eq .comma) ) 

* return 1 

else 

if ( is .eq. irdata ) return 1 
go to 450 
endif 
else 

400 continue 

if C is . eq . irdata ) then 

c # The token extends to the end of the input data, 

if ( a(il:is) .eq. null ) return 
tknsC itkn ) = a(il: is) 

c # The input token length may exceed the length of the variable, 

length = is - il + 1 
if ( length .le. maxlen ) then 
lentkC itkn ) = length 
else 

lentkC itkn ) = maxlen 
endif 
return 
endif 

c # Hove along the line looking for the end of the token, 

is - is + 1 
c = aCisris) 

if ( .not. (c.eq. space .or. c.eq.tab .or. c.eq. comma) ) then 
if ( c .eq. apos ) return 1 

c # Move to next character; continue looking for end of token, 

go to 400 
endif 

c # The previous character was the right-most character of the token 

if ( a(il: is-1) .ne. null ) then 
tknsC itkn ) = a(il: is-1) 

c # The input token length may exceed the length of the variable, 

length = is - il 
if ( length .le. maxlen ) then 
lentkC itkn ) = length 
else 

lentkC itkn ) = maxlen 
endif > 
endif 
endif 

c 

if ( itkn .eq. ntkn ) return 

c # Find the next location at which we should begin looking for the 

c # next token, i.e., after a following comma or at the next token, 

itkn = itkn + 1 
if ( is .eq. irdata ) return 
if ( c .eq. comma ) then 

c # Go back and look for a token following this comma, 

go to 200 
else 

c # Curent character was a space or a tab. 

c t Look for a comma, the next token, or end of line. 

500 continui' 

is = is + 1 
c = d(is:is) 

if ( c .eq. comma ) then 

if C is .eq. irdata ) return 
go to 200 
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else if ( c.eq. space .or. c.eq.tab ) then 
if C is .eq. irdata ) return 
go to 500 
else 

go to 300 
endif 
endif 
endif 
end 


c 

c 

c# 

c* 

c 

c# 

c# 

c# 

c* 

c 

c# 

c# 

c* 

c 

c# 

c* 

c 

c* 

c« 

c# 

c« 

c# 

c* 

c 

c 


subroutine getlinC nunit, a, irdata, * ) 


nunit ... The Fortran logical unit number of the file from which 
the input line(s) should be read. 

a A character string into which the input line will be 

read. The length of this given string determines how 
long the data line may be; input past this length is 
ignored . 

irdata . . The input "data" in string A extends to this character 
position. The data portion does not include any 
trailing comment (if present). 

* Alternare RETURN in the event that End-of-File is 

encountered on attempt to read a line from unit NUNIT. 


Reads line(s) from unit NUNIT and determines the location, IRDATA, in the 
string beyond which there may be only spaces, tabs, or a comment. Comments 
begin with a hash symbol Ct). Blank lines and lines that contain only a 
comment line are ignored and the next line is read until a line with some 
data or End-of-File is encountered. (’’Some data" might minimally be a 
single comma, an asterisk, or two adjacent apostrophies. ) 


character a*(*), comnt*l 

save comnt 

data comnt /’H 1 / 


c 

c# Read the input "line" from disk, 

c 


100 continue 

read( nunit, '(a)', end=910 ) a 
c 

c * We want to ignore any trailing comment and lines 

c * that are blank except for a comment (if any), 

c 


icom - index( a, comnt ) 

Location of right-most non-blank before comment (if any), 
if ( icom .gt. 1 ) then 

irdata = iright( ad: icom-1) ) 
else if ( icom .eq. 1 ) then 
go to 100 
else 

irdata = iright( a ) 
endif 


If only blanks before comment (if present) then read next line, 
if (irdata .eq. 0) go to 100 


c 

c » 
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return 


c 

910 continue 

return 1 
end 

c 

function ileftC string ) 


c by: D. T. Rickhoff 

c 

c Find the position of the leftmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 

c 

character*( * ) string 
character*! tab 
tab = thar(9) 
c 

C Find the location of the first nonblank character. 

c 1 

Is = len( string ) 
do 100 i = l , Is 

ifC • stringC i : i ) . ne . 1 1 

* .and. string(i:i) .ne. tab ) then 

ileft = i 
return 
endif 

100 continue 
c 

c String was blank. Set ileft to zero (as a flag). 

ileft » 0 

return 

end 


c 

function irightC string ) 


c by: D. T. Rickhoff 

c 

c Find the position of the rightmost nonblank character 
c in a string of 1 length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 

c 

character*( *) string 
character*l tab 
tab = char(9) 


c 

c 

c 


Find the location of the last nonblank character. 

Is * len( string ) 
do 100 i=ls,l,-l 

if^* string(i:i) .ne. 1 f 

* .and. string(i:i) .ne. tab ) then 

iright * i 
return * 
endif 

100 continue 


String wis blank. Set iright to zero (as a flag), 
iright = 0 
return 
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End of TUB212 . FOR 



A. 3. 3. 4 GEODESIC CURVED STIFFENED PANEL MODULE # 4 PROGRAM 


PROGRAM GEO 

common /geom/ NBY , NBZ , NWAL ,D , ALPHA, R »T1 ,T2, B, 

* NBC,NMESH 

common /matl/ NMAT , E1C 3 , 6 , 5) , VI ( 3 « 6 , 5) ,G1(3,6 , 5) , 

* E(6),V(6) ,MM(6) 

c common /taml/ AMLSC 6 , 6 ) , AMLAC 6 ,6) , AMLT(6) ,DA 

common /wall/ MWP.MWS ,NWPC 16 ) , NWS( 16 ) ,PTC 16) ,PA< 16) ,ST( 16) , SAL 16) 
common /load/ XL(4) ,SL(4) ,PSURF,X,S,TEMP 
c . . . **************************************************** 


c 

* 

Advanced Compostie Structural Program Input 

X 

c 

* 

PROBLEM 3: Geodesic Fuselage Panel 

X 

x 

c 

c 

X 

X 

variables definition . . . 

X 

X 

c 

c 

X 

X 

C Geometry data ] 

X 

c 

X 

NMAT = nun. of materials used 

X 

c 

X 

D - panel length 

X 

c 

X 

ALPHA = stiffener angle 

X 

c 

X 

R = panel radius 

X 

c 

X 

T1 = panel thickness! calculated) 

X 

c 

X 

T2 * stiffener thickness! calculated) 

X 

c 

X 

B = height of stiffener 

X 

c 

X 

NBY = number of bays in theta direction 

X 

c 

X 

NBZ * number of bays in z direction 

X 

c 

X 

NWAL = number of wall layups 

X 

X 

c 

c 

X 

X 

yalO: Head geom.dat !tapelQ) 

X 

c 

X 

yall: read mat.dat !tapell) 

X 

c 

X 

nalO: input data for the new geom.dat !tapelO)X 

c 

X 

nail: input data for the new mat.dat !tapell)x 

c 

X 

fmesh2: coarse mesh generation! stress, default)* 

c 

X 

f mesh : fine mesh generation! buckling) 

X 

c 

X 

nlod: load module 

X 

c 

X 

flisO: list data 

X 

c 

X 

fmod : modify data 

X 

c 

X 

fsave: update data 

X 

X 

c 

c 

X 

X 

Composed by : 

X 

c 

X 

A. Y. Wei LMSC/MSD/Bld . 157 

X 

c 

X 

Ext : 6-1137 

X 

c 

X 

With Assistance From: 

X 

c 

X 

L. L. Chou LMSC/MSD/Bld. 157 

X 

c 

X 

W. M. Brown LMSC/MSD/Bld. 157 

X 

c 

X 

Dv T .’ Rickhoff LMSC/MSD/Bld. 157 

X 

c 

X 

DATED Aug. 10, 1990 

X 

c 

X 

Updated Nov. 21, 1990 

X 

c 

X 

Version 1 . 3 

X 

c 

X 


X 


c **************************************************** 

LOGICAL herelO ,herell ,herel2 
do 5 i=l,10 
write( 6 ,*) ( * ') 

5 continue 

writet 6 , ' ( ' * Advanced Composite Structural Program ' 

write^j'C'' Geodesic Fuselage Panel '•)') 

write(6, ' ( ' * Updated Version - 1.3")') 
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c checking input data for DIAL F.E. structural analysis 
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c . initialize geom . da t ( uni tl G ) and mat . dat ( uni t 1 1 ) files 
c . . . 

inquireC f i le= 1 geom . dat 1 , exist=herel 0 ) 
inquireC f ile = 1 ma t . dat • , exist=herel 1 ) 
if CherelO) then 

write^,*!*' Geometric Database Already Exist. ''I') 

call yalO 
else 

call nalO 
endif 

wri te( 6 , #) C 1 * ) 

if (herell) then 

write(6, l ( ,f Material Database Already Exist. # ')') 

call yall 

else 

call nail 
endif 
call nlod 


call fsave 

c ... 

c list input parameters 

c ... 

call flisO 
call f mod 

c ... 
c ... 

c tttttt 

c # end of user interactive input, begin 
c • DIAL runstream generation. 

c III 

write! 6 , 1 C • * ’ Begin DIAL Runstream Generation ■ 1 ) 1 ) 
if ( NMESH .eq. 1) then 
call fmesh2 
else 

call fmesh 
endif 
call fbset 
call fmatl 
call fload 
call fsolve 

write(6 i •(• , DIAL Runstream Generation Complete * 1 ) • ) 

stop 

end * r 


cSUBROUTINE YA10 

c geom.dat-- geometric parameter input. 

ctttttfttftiittti 

SUBROUTINE yalO 

common /geom/ NBY,NBZ,NWAL ,D, ALPHA, R,T1 ,T2,B, 

* , NBC, NMESH 

common /matl/ NMAT , El ( 3 , 6 , 5 ) ,V1(3,6>5) ,61(3,6,5) , 

* E(6 ) ,V( 6) , MMC6) 

common /wall/ MWP.MWS , NWPC 16 ) ,NWS( 16 ) .PTC 16) ,PA( 16) , ST (16 ) ,SA( 16 ) 
character blk 

c ... 

c . read geom.dta CunitlQ) 

i . . 

open ( uni t=l 0 , status 3 ' old ' ,file= 'geom. dat* ) 


c . . 
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101 format( FI 9 . 3 ) 

102 formate 15 ) 

103 formate 3f 1 9 . 3 ) 

104 formate3i5) 

105 formatei5,f9.6,f7.2) 

106 format(al) 

107 formate2f9.6 # f9.3) 


c geom.dat eunitlO): geometry 


reade 1 0 , 1 04 ) NBY , NBZ , NWAL 
readei0,103)D, ALPHA, R 
read (10,1Q7)T1 ,T2,B 
reade 1 0 # 1 02 )NBC 
re ad (10,102) NMESH 


c wall layups 


reade 10,1 02 )MWP 
read e 1 0 , 1 02 )HWS 
do 10 i* 1 ,MWP 

read( 10,1 05)NWPei) ,PT(i) ,PAei) 

10 continue 

reade 1 0 , 106 )blk 
do 11 i*l , HWS 

read( 1 0 , 1 05 )NWS( i ) , STe i ) ,SAei) 

11 continue 
re turn 
end 

c Mil tt ft ft II ft INI# 

cSUBROUTINE YAH 

c mat.dat — material and load input 

cftftftftftftftft ft lift ft 

SUBROUTINE yall 

common /matl/ NMAT , El e 3 , 6 , 5 ) , VI e 3 , 6 , 5 ) ,G1 ( 3 , 6 , 5 ) , 
* Ee 6 ) ,ve6) # MMe 6 ) 

common /load/ XL e 4 ) , SL ( 4 ) , PSURF , X , S , TEMP 
character*l tok 

c ... 

c . read mat.dat eunitll) 
c ... 

open C uni t* 1 1 , status* •old* , file 3 'mat . dat 1 ) 

101 format eF19 . 3) 

102 formatCIS) 

103 formate 3f 19 . 3 ) 

104 formate3i5) 

105 formatei5,2fl9.3) 

106 formatCal) 


c mat.dat (unitll); material 


read( 1 1 , 1 02 ) NMAT 
do 12 i*l , NMAT 

read(ll,102)MM(i) 
if eHMt i ) . eq . 1 ) then 
reade 11 ,101 )E(i) 
reade 1 1 , 101 )V( i) 
reade 11,106) tok 
else 

read( 1 1,103 )E1( l ,i , 1 > , El ( 2 , i , 1 ) , El e 3, i , 1 ) 
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12 


read<U,103)Gl(l,i,l),Gl(Z,i,l),Gl(3,i,n 
read<ll»103)Vl(l,i,l),Vl(2,i,l),Vl(3,i,l) 
read( 11,106 )tok 
end if 
continue 


c mat.dat C uni t 1 1 ): load 


do 14 i = l,4 

read(ll,101)XL(i) 
readCll.lOnSLCi) 
14 continue 

readdl.lODPSURF 

return 

end 


cSUBROUTINE NA10 

c interactive -- geometric parameter input 


SUBROUTINE nalO 

common /geom/ NBY , NBZ * NWAL * D , ALPHA t R / T1 # T2 . B , 

* NBC,NMESH 

common /wall/ MWP , MWS , NWP ( 1 6 ) , NWS( 1 6 ) , PTC 16 ) , PA( 16 ) , ST C 16 ) , SAC 1 6 ) 


c NMAT - - number of materials used. 

c NBY --number of bays in circumf erential direction, 

c NBZ --number of 2“bays in axial direction, 

c NWAL “ -number of different composite wall lay-ups. 

c d --bay length. 

c a lpha- st i f f ener angle, (see manual) 

c r --radius of the panel, 

c tl --thickness of the panel, 

c t 2 --thickness of the stiffeners, 

c b --height of the stiffeners, 

c NBC- -boundary condition of the panel, 

c NMESH- indica tor for fine or coarse mesh, 

c ... 

dimension ra( 10 ), ira( 10 ) 


c create input for geom.dat (unitlO) 
c ... 

cXXXXXXXXXXXXXXX 

c default values 
cXXXXXXXXXXXXXXX 

NBY= 1 
NBZ = 1 
NWAL=2 
NMESH=1 
d=20 . 
r = l 1 7 . 5 
alpha=A8 . 
tl=Q.Q4 
t2=0 . 32 
b = 2 . 0 
NBC=2 


write^,^** Input 1> for Stress Analysis# 2^ for Buck. Analysis . > 
x>* »$) ' ) 

call NINTG( 1 , NMESH) 

write(6,X)' 1 
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wri te( 6 , ' ( 1 1 Input Bay Length (20. in.) >>''$)') 
call NREAL(l,d) 
write! 6 > *) 1 ' 

write^,'! 1 ' Input No. of Bays in Axial Direction. ''I') 
write(6, , ( ,f (Must be Even Number) >> ,, $) > ) 
call NINTG( 1 , NBZ) 
wri te ( 6 , * ) * 1 

write(6 / , ( l * Input No. of Bays in Ci rcumf erential Direction. >>''$ 
*) * ) 

call NI NTG( I , NBY ) 
wri te( 6 , * ) 1 * 

write^,'! 1 ' Input Panel Radius. ( in . ) > > * 1 $ ) * ) 
call NREAL(l,r) 
wr i te( 6 , * ) * * 

writelb,'! 1 ' Input Stiffener Angle ( deg . ) >> 1 1 $ ) 1 ) 
call NREAL( 1 , alpha ) 
wr i te( 6 , * ) 1 ' 

wr i te ! 6 , ' ( 1 * Input Stiffener Height. ( in . ) >> 1 1 $ ) 1 ) 
call NREAL( 1 ,b) 
wri te ( 6 , * ) ' * 

write(6 # , ( 1 ' Input Boundary Conditions for the panel . 1 1 ) 1 ) 

writer,*!'' 1-Infinite Panel. "I*) 

write^,'! 1 ' 2-Sides Clamped; Ends Free. ")') 

writel^,'! 1 ' 3-Ends Clamped; Sides Free.*')') 

write ! 6 , 1 ( ' ' Select Your Choice >>"$)*) 

call NINTG( 1 , NBC ) 

wri te ( 6 , * ) 1 * 

c ... 
c ... 
c ... 

write^,'! 1 ' Input No. of Layers for Panel Wall. >> ,, $) 1 ) 
call NI NTG( 1 , MWP ) 
wri te ( 6 , * ) * * 

write ( 6 , ' ( * * Input No. of Layers for Stiffener Wall. >> ,, $) f ) 
call NINTG( 1 , MWS ) 
write ( 6 * X) 1 * 

write^,*! 1 ' Input Panel Lay-up Material Nuro. * ' ) 1 ) 

100 format!' Layer Number *,12,'. >>'$) 
do 90 i=l,MWP 

wr i te! 6 , 1 00 ) i 

call NINTG( 1 , NWP( i ) ) 

90 continue 

wri teC 6 , * ) • 1 

T1 = 0 . 

writeCfij'C 1 ' Input Panel Lay-up Thickness 1 ) 1 ) 
do 91 i* 1 ,MWP 
wri te( 6 , 100 ) i 
call NREAL( 1 , PT(i) ) 

T1 3 T1+PT ( i ) 

91 continue 

wri te< 6 , *) 1 1 

write!6,'!" Input Panel Lay-up Orientation 1 )' ) 
do 92 i=l,MWP 
write! 6 , 100)i 
call NREAL ( 1 , PA( i ) ) 

92 continue 

wri te( 6 ,<)' ' 

write ( 6 , 1 ( ' * *****Warning ! ! Stiffener Lay-up Must be Symmetric 

* . ***** 1 ) 1 ) 

write! 6 j 1 ( * ' Input Stiffener Lay-up Material Number . 1 ')' ) 
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do 93 i = 1 , MWS 
wr i teC 6 , 1 00 ) i 
call NINTGC 1 , NWS( i ) ) 
continue 
wri te(6 ,#) 9 1 
T2 = 0 . 

writeCd^C 1 * Input Stiffener Lay-up Thickness .* 1 )’ ) 
do 94 i=l, MWS 
wri te( 6 , 1 00 ) i 
call NREALC l , STCi ) ) 

T2=T2+ST ( i ) 

94 continue 

wr i te( 6 , #) • 1 

write(6 / , C ,, Input Stiffener Lay-up Or ientation . 9 1 ) 1 ) 
do 95 i = 1 , MWS 
wri te(6 , 100 )i 
call NREAL ( 1 , SAC i ) ) 

95 continue 
re turn 
end 


cSUBROUTlNE NA11 

c interactive -- material parameter input 


SUBROUTINE nail 

common /matl/ NMAT , El ( 3 , 6 , 5) , VI ( 3 , 6 , 5 ) , G1 ( 3 , 6 , 5 ) , 

* E(6) , VC 6 ) ,MMC6 ) 

common /wall/ MWP , MWS , NWP (16) , NWSC 16 ) , PT< 16 ) , PAC16 ) , ST( 1 6 ) ,SA( 16 ) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NMAT** -number of materials used. 

E --elastic moduli. 

V --poisson’s ratio. 

G --shear moduli. 

MWP --number of layers for panel. 

MWS --number of layers for stiffener. 

NWP --matl composition of panel wall. 

NWS --matl composition of stiffener wall. 

PT --panel layer thicknesses. 

PA --panel layer angles. 

ST --stiffener layer thicknesses. 

SA --stiffener layer angles. 

MM --indicator for iso--l, or ortho--2 matl. 


. create input for mat.dat Cunitll) 
. default values for matl 
NMAT=2 


101 formate # Input Properties for Mataterial Number • ,i2, f >>') 
uriteiSf’i' 1 Input No. of Materials Used. >>••$)') 
call NINTGC 1 ,NMAT ) 
writeC6,#) # 1 
do 20 i=l ,NMAT 
write(6 ,101 )i 

write(6, , ( ,, Input 1> for Iso. Material. 2> for Ortho, Material 


writeC 6 , • ( 1 1 Enter >>•*$)') 
call NINTGC 1 ,MM( i ) ) 
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wri te( 6 , X ) * ' 

if (MMCi). eq. 1) then 

writeC6, , C" Input Elastic Modulus. ( psi )>> • 1 $ ) 1 ) 
call NREALC 1 , EC i ) ) 
writeC6 / *)' 1 

writeC6 J , C" Input Poisson ,,,, s Ratio. >>"$)') 
call NREALC 1 , VCi) ) 
wri te( 6 , *) 1 ' 
else 

writaC6, , C" Input Elastic Moduli: E11,E22 ( psi ) >> ' 1 $ ) 1 ) 
call NREALC 2 i ElCl,i,l),ElC2,i # l)) 
writeC6,*) f * 

E1C 3 ,i , 1 ) = 1 00 . 

writeC6, , (" Input Shear Moduli: G12,G23,G31 Cpsi)>>"$)') 
call NREAL(3,Gl(l,i,l>,Gl(2,i,l>,Gl(3,i,l)> 

wri te( 6 , *) 1 ' 

wri te( 6 , ' C ' 1 Input Poisson""s Ratios: V12 »"$)') 
call NREAL Cl,VlCl,i,D) 
wri te( 6 , *) 1 1 

VI C 2 , i , 1 ) = 0 . 00 
VI C 3 , i , 1 ) = 0 . 00 
endif 
20 continue 
c ... 
c ... 
c ... 

return 

end 

cSUBROUTINE NLOD 
c load input 
cMfcMtiMtHHHIItt 

SUBROUTINE NLOD 

common /load/ XL( A ) , SL ( « ) , PSURF , X , S , TEMP 
common /geom/ NBY , NBZ , NWAL , D , ALPHA , R , T 1 , T2 , B , 

* NBC , NMESH 

TEMP=D 
A2=ALPHA/2. 

TEMPI 3 TEMP/COS DC A2 ) 

TEMP 3 TEMP 1 *SINDC A2 ) 

TEMP=TEMP*2 . 

TEMP=TEMP*NBY 
do 10 i*l ,8 
writeC 6 , * ( * 1 ")’) 

10 continue 

write(6 # '(" Apply Loads to the Model;")') 

write(6,'('' How Would You Like to Input Loads? 11 )') 

writeC6,'(" l>as Total Load.") 1 ) 

write(6, ' 2>as Line Load.")') 

write(6,'(" Enter >>"$)') 

call nintg(l,N) 

wri teC6 , X) ' 1 

if C N . eq . 1 ) then 

writeC6,'C" Input Total Axial Load (lb. ) = "$)') 

call nrealC 1 # X) 

XLC 2) =X/TEMP 
XLC 4 ) 3 X/TEMP 
write(6,X)' * 

writeCbf'C' 1 Input Total Shear Load on the l)Ends 2)Sides" 


X)') 
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Enter >>'•$)•) 


write!6, '< • • 
call nintgC 1 , NN ) 
write!6,#)* • 
if (NN.eq.l) then 

write^, 1 ! 11 Input Total Shear Load on the Ends !lb.)* ,f 

*$) » ) 

call nreal ( 1 , S ) 
wri teC 6 , * ) 1 1 
SL ( 1 ) -S/TEMP 
SL ( 2 ) -S/TEMP 
SL ( 3 ) =S/TEMP 
SL ! 4 ) =S/TEMP 
else 

write(6, , (*' Input Total Shear Load on the Sides (lb.) 3 ' 

*'$) 1 ) 

call nreal ( 1 , S ) 
write ( 6 , X ) * • 

TEMP2=D*NBZ 
SL ( 1 ) 3 S/TEMP2 
SL ( 2 ) =S/TEMP2 
SL( 3 ) =S/TEMP2 
SL ! 4 ) =S/TEMP2 
endif 

elseif C N . eq . 2) then 

write^6, , ( ,, Input Axial Line Load ! lb . /in ) = 1 * $ ) 1 ) 

call nreaK 1 , X ) 

XL ( 2 ) =X 
XL ! 4 ) = X 
wri teC 6 , *) 1 1 

write(6 / , C'' Input Shear Line Load ( lb . /in ) = 1 1 $ ) 1 ) 

call nreal(l,S) 
write!6,*)* * 

SL ( 1 ) = S 
SL C 2 ) = S 
SL C 3 ) = S 
SL ( A ) = S 
endif 

write(6 / , ( ,, Input Pressure Load (psi)= 

call NREAL! 1 ,PSURF ) 
wri te! 6 , *) * 1 

write! 6 , *) • • 
return 
end 
c 

ctfiiiVffltttiliitl 

cSUBROUT INE FSAVE 

c save data to geom.dat and mat,, dat 
c 

SUBROUTINE fsave 

common /geom/ NBY , NB2 , NWAL , D , ALPHA , R , T1 , T2 , B , 

* NBC , NMESH 

common /matl/ NMAT , El( 3 , 6 , 5) , VI (3 , 6 , 5 ) , G1 ( 3 , 6 , 5) , 

* E( 6 ) , V( 6 ) ,MM( 6 ) 

common /wall/ MWP,MWS ,NWP( 16 ) ,NWS! 16) ,PT( 16) ,PA! 16) , ST( 16) , SA( 16) 
common /load/ XL! 4) , SL! 4 ) , P SURF, X,S, TEMP 
character blk 

open! uni t = 10 , status- 1 unknown * , f i le 3 'geom. dat • ) 
open! unit 3 11 , status 3 'unknown* , f ile 3 • mat .dat 1 ) 
rewind! 10) 
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rewind( 11) 


c ... 

c . save and update files 
c . . . 

101 f ormat( F19 . 3 ) 

102 formatC 15) 

103 f orma t C 3f 1 9 . 3 ) 

104 format(3i5) 

105 formatCi5,f9.6,f7.2) 

106 format(al) 

107 formatC2f9.6,f9.3) 

c 

c geom.dat CunitlO): geometry 


writeC10,104)NBY,NBZ,NWAL 
writeC10,103)D,ALPHA,R 
tl = 0 . 
t2= 0 . 

do 8 i = 1 , MWP 
tl = tl + PT ( i ) 

8 continue 

do 9 i = 1 , MWS 
1 2= t2 + ST ( i ) 

9 continue 
writeC10,107)Tl,T2,B 
writeC10,102)NBC 
writeC10,102) NMESH 

c 

c 

writeC 10 , 1 02 )HWP 
writeCIO, 1 02 ) MWS 
do 10 i = l , MWP 

writeC 10, 105 )NWPC i ) ,PTCi) ,PACi) 

10 continue 
write(10,106)blk 
do 11 i=l ,MWS 

writeC 10, 105)NWSCi) ,STCi) , SAC i) 

11 continue 


c mat.dat (unitll): material 


writeCll ,102) NMAT 
do 12 i= 1 , NMAT 

if (MHC i ) . eq . 1 ) then 
writeCll, 102)MMCi) 
writeCll, lOl)E(i) 
writeCll, 101)VCi) 
writeCll, 106)blk 
else 

writeCll, 102)MMCi) 

writeCll ,103)ElCl,i, 1), El C2,i,l) ,ElC3,i,l) 
writeCll , 1 03 )G1 C 1 , i , 1 ) ,GlC2,i,l) ,G1C 3, i,l) 
writeCll ,103) VI Cl, i,l) ,VlC2,i,l) ,VlC3,i,l) 
writeC 1 1 , 106 )blk 
endif 
12 continue 

do 14 i=l,4 

writeCll, 101)XLCi) 
writeCll, lODSLCi) 

14 continue 
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write(ll,101)PSURF 
closet unit = 10) 
close ( uni t= 1 1 ) 
return 
end 
c 

cSUBROUTINE FLISO 
c list current parameters 

c 

SUBROUTINE flisO 

common /georn/ NBY , NBZ-, NWAL , D , ALPHA , R , T1 , T2 , B , 

* NBC, NMESH 

common /matl/ NMAT , El ( 3 , 6 , 5 ) , VI ( 3 , 6 , 5 ) ,61 ( 3 , 6 , 5 ) , 

* E(6),V(6),MM(6) 

common /wall/ MWP , MWS , NWP( 16 ) , NWSt 16 ) ,PT( 16) ,PA( 16 ) ,ST( 16) , SA( 16) 
common /load/ XL C 4 ) , SL ( 4 ) , PSURF , X , S , TEMP 
character tok 

c ... 

c list files 
c ... 

101 formatt' Number of Panels in: Axial Direction 3 ' , i3 , 2x , 

*'Hoop Direc tion= * , i3 ) 

102 formatt' Material Number: *,i2) 

103 formate 1 Eepsi)=' ,fl3.1,2x, 'V=* ,f9.3) 

104 formatt • El 1 t psi ) 3 ' , f 13 . 1 , 2x , ' E22epsi ) = ' , f 13 . 1 ) 

105 formatt 1 G1 2e psi ) 3 * , f 1 3 . 1 , 2x , 1 G23tpsi ) 3 • , f 13 . 1 , 2x , 

**G3ie P si)=* ,fl3. 1) 

106 formate' V12= f ,f9.3) 

107 formate' Ply Number • , 1 2 , / , 1 Material Number i2 , 2x , 

*/,' Ply ThicknessC in) = 1 , f 9 . 6 , 2x, / , 

** Ply Angle e deg . ) = * , f 7 . 2) 

108 formatC* Panel RadiusC in) = ' , f 9 . 3) 

109 formate* Panel Length, Dt in)= • ,f 9 . 3) 

110 formate* Stiffener Height e in ) = • , f 9 . 3 ) 

111 formate* Stiffener Angle, ALPHAe degree) = * ,f 5 . 2) 

112 formate' Panel Thicknesse in) =', f 9 . 6 ) 

113 formate' Stiffener Thicknesse in)= f 9 . 6 ) 

115 formateal) 

116 formate* Axial Line Load e lb . /in) 3 ' , f 9 . 3 ) 

117 formate' Shear Line Load e lb . /in) * ' , f 9 . 3 ) 

118 formate* Pressure Load e lb . /in**2)=>' ,f 9 . 3) 

10 writee6,'(' v Choose the Info, to be Listed: *')') 

writee6,*e** l>Panel and Stiffener Geometry .'*)* ) 

wri tee 6 , * e * * 2>Material Data.'*)') 

writee6,'e** 3>Wall Lay-ups . # • ) ' ) 
wri tee 6 , * e * ' 4>Load. ,t )') 

writee 6 , * e ' 1 5>Exit . 1 • ) • ) 
write(6 , • ( 1 • Enter» ,, $)*) 

call nintgei,N) 
c 

c gemo.dat CunitlO); geometry 


if e N . eq . 1 ) then 
writee6,*)' * 
writee 6 , 1 08)R 
writee 6 , 109 )D 
writeC 6 , 1 1 0 ) B 
writeC 6 , 111 ) ALPHA 
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write(6,101)NBZ,NBY 
writeC 6,112)11 
wri te C 6 , 1 1 3 ) T2 
ifCNBC.eq. l)then 

w^iteC6, , C ,, Boundary Condition: Infinite Panel. 11 ) 1 ) 

else ifCNBC.eq. 2) then 

writeC6, , C'' Boundary Condition: Sides Clamped; Ends Fre 

*e . 1 * ) 1 ) 
else 

writeC6, , C'* Boundary Condition: Ends Clamped; Sides Fre 

Xe . ■ 1 ) 1 ) 
endif 

if(NMESH.eq.l) then 1 

write^j'C 1 ' Stress Analysis . 1 1 ) 1 ) 

else 

writeC^’C 1 * Buckling Ana lysis . 1 1 ) 1 ) 

endif 

wri teC 6 , x ) 1 1 

write ( 6 , 1 C 1 • x**Hit <<Return>> for Next Page .***"$)* ) 

readC 5,115) tok 

wr i te ( 6 , x ) * 1 

write ( 6 , * ) 1 1 

wri te( 6 , * ) 1 1 

go to 10 


c mat.dat (unitll): material 


elseif(N.eq.2)then 
do 11 i= 1 , NMAT 
write C 6 , X ) * • 

writeC 6 , 1 02) i 
if(MMCi) . eq . 1 ) then 

write(6, , C ,f Isotropic Material ’ 1 ) 1 ) 

write(6,103)E(i),V(i) 
else 

write^f'C 1 * Orthotropic Material ■*) 1 ) 

write(6,10A)El(l,i,l) ,El(2,i,l) 
write(6 # 105)Gl(l,i # l),Gl(2,i,l),Gl(3,i,l) 
write(6 / 106)Vl(l ,i,l) 
endif 

11 continue 

wri teC 6 , * ) • 1 

wri teC 6 , 1 C ' • xxxHit <<Return>> for Next Page . *** 1 1 $ ) ' ) 

readC 5 > 1 1 5 ) tok 
writeC6,X)* 1 
writer,*)* * 

writeC6,x)* 1 
go to 10 


c wall 


el seif ( N . eq . 3 ) then 
writeC6,x)» 1 

write^^C 1 * Panel Wall Lay-ups .• 1 ) 9 ) 

do 12 i= 1 , MWP 

writeC 6, 107 ) i, NWP< i ) ,PT(i) ,PA(i) 

12 continue 

write(6,ll2)Tl 
writeC6,x)* 1 
wri te( 6 , 1 ( 1 1 


XX*Hit <<Return>> for Next Page . x** ■ ■ $ ) * ) 
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read( 5 ,115) tok 
writeC 6 , *) 1 1 

wri te( 6 , *) 1 1 

writeC6 ,*) 1 1 

writeCS,^ 1 ' Stiffener Wall Lay-ups. f ')' ) 

do 13 i= 1 , MWS 

wri teC 6 , 107 )i ,NWSC i ) , STCi ) , SAC i ) 

13 continue 

writeC 6 , 113)T2 
writeC6,*)* ' 

write^^'C 1 * ***Hit <<Return>> for Next Page . *** 1 1 $ ) * ) 

readC 5 , 1 1 5 ) tok 

writeC6,*)* 1 

writeC6,*)* 1 

write C 6 , *) * ■ 

go to 10 


c load 


elseifCN.eq.4)then 
write(6,116)XLC2) 
writeC6,117)SLCl) 
writeC6,118)PSURF 
writeC6,*)* • 

writeC 6 , 1 C 1 1 ###Hit <<Return>> for Next Page . *** ■ 1 $ ) f ) 

readC 5,115) tok 
wri teC 6 , *) 1 1 
go to 10 

elseifCN.eq.5) then 
go to 14 
else 

go to 10 
endif 

14 return 
end 
c 

cSUBROUTINE FMOD 

c modification of current database 
c 

SUBROUTINE fmod 

common /geom/ NBY,NBZ, NWAL ,D , ALPHA, R,T1 ,T2,B, 

* NBC, NMESH 

common /matl/ NMAT , El ( 3 , 6 , 5 ) , V 1 ( 3 , 6 , 5) ,G1 ( 3 , 6 , 5 ) , 

* EC6),VC6),MMC6) 

common /wall/ MWP ,MWS , NWPC 16 ) , NWSC 16 ) , PTC 16 ) , PA( 1 6 ) , ST( 1 6 ) , SAC 1 6 ) 
common /load/ XLC 4 ) , SL C 4 ) , PSURF , X , S , TEMP 
character*! IDC,tok 


100 

formatC lx , i2 

, ^Material 

101 

formatC lx, i2 

, '>Return to Menu. 1 ) 

102 

formatC • 

Material Number *,12,* 

103 

formatC 9 

Ply Number f ,i2, f . ') 

104 

f ormatCal ) 


c . . 

C . I 

modify files 


C • . 

10 

writeC6 ,*) 9 

i 


wri teC 6 , 1 C 1 1 Choose the Info, to be Modified:")') 

writeC6 , 1 C 1 1 l>PaneT and Stiffener Geometry.")') 
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write! 6 , 1 ( * 1 2>Material Data . * * ) 1 ) 

wri te( 6 , * ( 1 • 3>Wall Lay-ups . ) 

write (6 , ' ( • ■ 4>Load . * 1 ) 1 ) 

wr i te ( 6 , 1 ( * 1 5>Update Info, and List.")') 

wri te( 6 , ' ! 1 * 6>Exit. ,, ) t ) 

wr i te ! 6 , 1 ! * • Enter>> ' 1 $ ) * ) 

call nintg ( 1 , N ) 


c geom.dat (unitlO): geometry 


Panel Radius C in) = • ■$)• ) 


i f ( N . eq . 1 ) then 
write(6,*)' * 

write ( 6 , 1 ( 1 1 Choose the Following Geometric Parameter to be 

* Modified : • • ) 1 ) 

wri te( 6 , * ( ' 1 l>Panel Radius. ")•) 

write ! 6 , ' ( 1 1 2>Panel Length, D.")») 

write ! 6 , ' ( 1 ' 3>Stiffener Height.")') 

write ( 6 , * ( 1 * 4>Stiffener Angle, ALPHA. ")•) 

^ write ( 6 , ' ( 1 * 5>Number of Panels in Axial & Hoop Direction. 

write!6,*!" 6>Boundary Condition.")') 

write!6,'!" 7>Type of the Analysis .' 1 ) 1 ) 

wri te ! 6 , * ( * 1 Q>Return to Menu.")') 

write! 6 , • ( ' * Enter>> • ' $) * ) 

call nintg!l,M) 
write ( 6 , X ) 1 1 
if ( M . eq . 1 ) then 

write(6,'I" Panel Radius ( in) ="$)• ) 

call nreal ! 1 , R ) 
write ( 6 , *) 1 * 
elseif(M.eq.2)then 

wr i te( 6 , * C • • Panel Length, D(in)="$)') 

call nreal ( 1 , D) 
wri te( 6 , *) ' * 
elseif(M.eq.3) then 

write ( 6 , ' ! * ' Stiffener Height ! in )="$)• ) 

call nreal ( 1 , B ) 
wri te( 6 , *) 1 * 
elseif ( M . eq . A ) then 

write ( 6 , * ( 1 1 Stiffener Angle, ALPHA!degree)= * 1 $ ) 1 ) 

call nreal! 1 , ALPHA) 
wri te( 6 , *) » 1 
elseif (M.eq.S)then 

write(6,'!" Number of Panels in Axial Direction= 1 • $ ) * ) 

call nintg! 1 , NBZ ) 
write! 6 , * ) 1 • 

write!6,'!" Number of Panels in hoop Direction^ ' ' $ ) • ) 

call nintg! 1 , NBY ) 
write!6,*)' 1 
elseif !M.eq.6)then 


Panel Length, D!in)="$)') 


Stiffener Height ! in )="$)• ) 


Stiffener Angle, ALPHA!degree) = " $ ) 1 ) 


wri te ( 6 , 1 ! * 1 Boundary Condition:")') 

wri te( 6 , 1 ! * 1 l>Infinite Panel.")') 

write!6,'!" 2>Sides Clamped; Ends Free . 1 1 ) 1 ) 

write!6,'!" 3>Ends Clamped; Sides Free . • 1 ) ' ) 

wri te( 6 , * ( • • Enter >> ,, $) # ) 

call nintg! 1 , NBC ) 
write!6,*)' 1 
elseif !M.eq.7)then 

write!6,'!" Type of the Analysis : 1 >Stress . 2>Buckling. 


* • 1 ) • ) 
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wri teC 6 , 1 C 1 1 Enter >>•'$)') 

call nintgC 1 , HMESH) 
writeC6,*)’ 1 
else 

go to 10 
endif 
go to 11 

elseifCN.eq.2) then 


c mat.dat (unitll): material 


\2 write C 6 , * C 1 • Choose the Material to be Modif ied . 1 1 ) 1 ) 

NTMP^NMAT+1 
do 13 i= 1 , HTMP 

if C i . le . NMAT ) then 
wri te( 6 , 100 )i , i 
else 

wri te( 6 , 1 01 ) i 
endif 

13 continue 

wri te( 6 , 1 C 1 • Enter »"$)') 

call nintgCl,J) 
writeC6,*) f * 
ifCJ.le. NMAT) then 
writeC 6 , 102) J 
c writeC6,*)J 

writeC6, , C ,, Do You Want to Change the Material? [Y or N 

# ] ' 1 ) * ) 

writeC 6 , ’ C 1 1 Enter >> ,, $)') 

read( 5,104) tok 

if(tok .eq. , Y* .or. tok .eq. 'y')then 

writeC 6 , • C * ' Select l>Isotropic, 2>0rthotropic Materi 

*al. • •>■) 

write C 6 , * ( 1 * Enter >> ,, $) f ) 

call nintgC 1 ,MMC J ) ) 
writeC 6 , *) 1 * 
ifCMMCJ) . eq . 1 ) then 
go to 16 
else 

go to 15 
endif 
else 

ifCMMCJ) . eq . 1 ) then 
go to 17 
else 

go to 18 
endif 
endif 

15 writeC6,*)' 1 

writeC 6 , * C * 1 Enter Ell, E22 Cpsi )>>*'$) 1 ) 

call nreal C 2 , El C 1 , J , 1 ) , E1C2,J,1)) 
writeC6,#) t 1 

writeC6, 1 C 1 1 Enter G12, G23, G31 Cpsi>»"t>’> 

call nreal C 3,G1C1,J,1) ,G1C2,J,1), G1 (3,J,1)) 
writeC6,X)* 1 

writeC 6 , 1 C • 1 Enter V12 »"$)') 

call nrealC 1 , VI C 1 , J , 1 ) ) 
writeC6,*)* ' 
go to 12 
writeC6,#) t 1 


16 
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writeU^C* Enter E (psi )>>••$)' ) 

call nrea 1(1 , EC J) ) 
wri te( 6 , * ) 1 f 

wri te( 6 , ' ( 1 * Enter V >>''$)») 

call nreal ( 1 , V ( J) ) 
writeC6,*)' • 
go to 12 

17 wri te( 6 , * ) ■ 1 

write( 6 , 1 ( • • Choose the Item to be Modified. >>•»)•) 

write(6 J , ( ,f 1>E. 2>V ,, ) f ) 

writeC 6 , 1 ( • • Enter »••$)*) 

call nintgC 1 , N1 ) 

write(6,*)' ■ 

if ( HI . eq . 1 ) then 

write (6 , ' ( ' • ECpsi ) = ' •$ ) 1 ) 

call nreal ( 1 ,E( J) ) 
wri te( 6 , * ) • • 

else 

wri te( 6 , 1 ( * * V= 1 * $ ) • ) 

call nreal ( 1 , VC J) ) 
wri te( 6 , * ) • * 
endi f 
go to 12 

18 write(6,*)* * 

wri teC 6 , 1 ( ' ' Choose the Item to be Modified. >>■•)•) 

wri te( 6 , 1 ( • * 1>E11, E22 ,f ) f ) 

wri te( 6 , * ( • • 2>G12 # G23, GSl 1 ')*) 

wri teC 6 , • ( 1 * 3>V12 ' • ) ' ) 

wri te( 6 , 9 ( 1 • Enter >>•'$)•) 

call nintgC 1 , N1 ) 

wri te( 6 , X ) • • 

if (HI . eq . 1 ) then 

wri te(6 , 1 C ' 1 Ell, E22Cpsi )= 9 ■ $ ) 9 ) 

call nreal(2,El(l, J,1),E1(2, J,l)) 
write(6,M)' • 
el seif (HI .eq.2)then 

writeC 6 , 1 ( 1 1 G12, G23, G31 (psi )= • 1 $ ) ■ ) 

call nreal(3,Gl(l, J,l) ,G1(2, J,l) ,G1(3, J,l)) 
write(6,*) 9 9 
else 

wri te ( 6 , 9 ( 9 9 V12="$) 9 ) 

call nrealC 1 , VI ( 1 , J, 1 ) ) 
writeC 6 , *) 1 • 
endif 
go to 12 

elseif ( J.eq. (NMAT+1 ) )then 
go to 10 
else 

writeC 6 , 1 ( 1 1 Entered Number Exceeds Total Number of Mate 

#rial . 9 9 ) 9 ) 

wri teC 6 ,*) 9 • 
go to 12 
endif 


c wall 


elseif(N.eq^3) then 
write(6,*) 9 1 

writeC 6 , 1 ( 9 9 Choose One of the Following ---••)•) 
writeC6 , 1 ( 9 9 l>Char>ge Panel Wall. 9 9 ) 9 ) 


19 


A-221 



write(6« v ( tf 2>Change Stiffener Wall.' 1 ) 1 ) 

writeCb^'C 1 * 3>Return to Menu . ' 1 ) ' ) 

write^^'C 1 * Enter> > 1 ' $ ) * ) 

call nintg(l,M) 
wr i te( 6 , *) * * 

if ( M . eq . 1 ) then 
write(6 , X) 1 1 

writeCS^C 11 Do You Want to Change Total Humber of Plies 

X? [Y or N 1 * 1 $ ) r ) 

read( 5 , 1 04 ) IDC 
write(6,x)* ■ 

c call stitle(IDC) 

if (IDC.eq. # Y # .or . IDC.eq. 'y* )then 

writeC^'C 1 ' Number of Plies for Panel Wall 5 '^)*) 

call nintg(l,MWP) 
writeC 6 , X ) 1 • 

do 20 i=l,MWP 

wri te ( 6 , X ) • • 

wri te ( 6 , 1 03 ) i 

writeCd,*! 11 Enter Material Number. >> , *$)') 

call nintgC 1 , NWP( i ) ) 
wri teC 6 j x) • 1 

wr i te C 6 , * ( * 1 Enter Ply Thickness. (in)>> ,, $)') 

call nrea l(l,PT(i)) 
writeC 6 , X) * * 

write(6» 9 ( vv Enter Ply Angle. C deg . ) >> ' * $ ) ' ) 

call nreal ( 1 , PAC i ) ) 
wri teC 6 , x) • • 

20 continue 
Tl-0. 

do 21 i* 1 , MWP 
Tl-mPT<i) 

21 continue 

else 

22 writeC^'C'* Enter Ply Number for Change. >>••$) f ) 

call nintgCi,N) 

wri te( 6 , X) • • 

if C N . gt . MWP ) then 

write^j'C'* Number Entered Exceeds Total Panel PI 

xies . • 1 ) • ) 

wri te( 6 , X) 1 * 

go to 22 

else 

write(6, f ( ,f Enter Material Number. >> ,, $) 1 ) 

call nintgC 1 , NWPCN) ) 
writeC 6 , *) * • 

wri te( 6 , ' ( • \ * Enter Ply Thickness. (in)>> ,, $) 1 ) 
call nreal ( 1 , PTCN) ) 
fcriteC 6 , X) • • 

write(6« v ( IR Enter Ply Angle. Cdeg .)>>**$) 1 ) 

call nreaK 1 , PA(N) ) 
write(6,x) f 1 

T1*0 . 

do 23 i * 1 , MWP 
* Tl*Tl+PT(i) 

23 Continue 
endif 

endif 
go to 19 

elseif(M.eq.2) then 
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writeC 6 , *) 9 1 

writeCGj’C* 1 *xx**Warning ! ! Stiffener Lay-up Must be Sym 

^metric , **** 1 1 ) * ) 

writeC6, , C ,f Do You Want to Change Total Number of Plies 

*? [Y or N ] 1 1 $ ) 1 ) 

readC 5 , 1 04 ) IDC 
writeC 6 , *) * 1 

c call stitle(IDC) 

ifCIDC.eq. 'Y f .or.IDC.eq. 'y* )then 

writeC6, , C ,f Number of Plies for Stif f ener= ' 1 $ ) • ) 

call nintg(l,MWS) 
writeC 6 , *) * * 

do 24 i=l,MWS 
write C 6 , ' 1 

write(6 , 103)i 

writeC6, , C ,f Enter Material Number. >> ,f $) f ) 

call nintgC 1 , NWS( i ) ) 
writeC 6 ,*) 1 • 

writeC 6 , ' C 1 1 Enter Ply Thickness. Cin)>> ,f $)') 

call nreal C 1 , STC i ) ) 
writeC 6 ,*) ' * 

writeC6, , C ,i Enter Ply Angle. Cdegree)>> * 9 $ ) ' ) 

call nrealC 1 , SAC i ) ) 
writeC 6 , *) ' • 

24 continue 
T2 = 0 . 

do 25 i= 1 , MWS 
T2=T2+ST C i ) 

25 continue 
else 

26 writeC 6 , 1 C ' * Enter Ply Number for Change. >>"$)') 

call nintgCl,N) 

writeC6,*)* f 
if C N . gt . MWS) then 

writeC 6 # , C ,i Number Enter Exceeds Total Stiffener 

*Plies. ■ ■)') 

writeC 6 , *) 1 1 
go to 26 
else 

writeC6,'C ,, Enter Material Number. >> f, $) , > 

call nintgC 1 , NWSC N) ) 
writeC6,*)* 1 

writeC6, f C ,f Enter Ply Thickness. Cin)>> ,, $) 1 ) 

call nrealC 1 , STC N) ) 
writeC 6 , *) 1 1 

writeC 6 , ' C 1 1 Enter Ply Angle. C deg . ) >> * 1 $ ) f ) 

call nrealC 1 , SAC N) ) 
writeC 6 , *) 1 1 
endif 
T2 = 0. 

do 27 i=l,MWS 
T2=T2+ST C i ) 

27 continue 
endif 

go to 19 
else 

writeC6,*) 1 1 
go to 10 
endif 



c 


A-223 



c load 


el seif CN . eq . 4) then 
TEHP=D 
A2=ALPHA/2 . 

TEMPI =TEMP/C0SD(A2) 

TEMP=TEMP1*SINDC A2) 

TEMP=TEMP*2 . 

TEMP=TEMP*NBY 

28 wri teC 6 , f C 1 1 Which Load do You Want to Change?'*)*) 

writeC6, f C'' l>Axial Load.*')') 

wri te( 6 , ' C ' ' 2>Shear Load.")*) 

wri te( 6 , * C ' * 3>Pressure Load. 11 )*) 

writeC6, , C'' 4>Return to Menu . 1 * ) * ) 

writeC*, *C 1 1 Enter >>"$)') 

call nintg(l,M) 
writeC6,*) f f 
if (M.eq. 1 ) then 

writeC6,'C f * Do You Want to Enter the l>Total Load or 2> 

*Line Load? >>")•) 

writeC 6 , ' C ' ' Enter »*'$)*) 

call nintgCl,ML) 
writeC 6 , *) * 1 
if (ML.eq.l)then 

write(6, , ( ff Total Axial Load Clb. )=**$)*) 

call nrealCl,X) 
writeC*,*)' f 
XLC2)=X/TEMP 
XLC 4) = X/TEMP 
else 

writeC*,^*' Axial Line Load C lb ./in)=' '$) 1 ) 

call nreal(ljX) 
write(6,*)' 1 

XLC2)=X 
XLC4)=X 
endif 
go to 28 

el seif (M . eq ♦ 2) then 

writeC*,*!" Do You Want to Enter the l>Total Load or 2> 

*Line Load? >>")•) 

writeC6,'C ,f Select >>"♦)*) 

call nintgCl,ML) 

-writeC 6 ,*) 1 * 
if (ML . eq . l)then 

writeC 6 , ' C ' * On l>Ends. 2>Sides. »"$)') 

call nintgCl,NP) 
writeC6,*)' * 

writeC 6 , ' C ' ' Total Shear Load Clb. )="$)*) 

call nrealCljS) 
writeC 6 ,*) f 1 
if CNP.eq.l) then 
SLC 1 )=S/TEMP 
SLC 2) = S/TEMP 
SLC3)=S/TEMP 
SLC4)=S/TEMP 
elseif CNP.eq.2) then 
SLC 1 )=S/D*NBZ 
$LC2)=S/D*NBZ 
SLC3)=S/D*NBZ 
SLC4)=S/D*NBZ 
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endif 

else 

write(6, , ( ,t Shear Line Load ( lb . /in) 2 1 1 $ ) * ) 

call nreal(l,S) 
wri te C 6 , *) 1 * 

SL ( 1 ) =S 
SL ( 2 ) =S 
SL ( 3 ) =S 
SL(<+) = S 
endif 
go to 28 

elseif (M .eq . 3) then 

write^^C 11 Pressure Load ( lb . /in**2 ) = • 1 $ ) ' ) 

call nreal ( 1 , PSURF) 
wri te( 6 , * ) • * 

go to 28 

elseif(M.eq.4) then 
go to 10 
else 

go to 28 
endif 

elseif(N.eq.B) then 
call fsave 
write(6,*)' 1 
call flisO 
go to 10* 
else 

wri te( 6 , X ) 1 1 

write^j’C 11 Do You Really Want to Exit This Program? [Y or 

* N] f • ) • ) 

write( 6 , ' ( 1 1 HAVE YOU SAVED YOUR DATABASE ???•')*) 
writeC 6 , f ( 1 1 Enter »•*$)•) 

read ( 5 , 104 ) tok 

if ( tok . eq . *Y I .or. tok .eq. f y f )then 

write(6, f ( ,f xxxxxEnd of data input session .****« 1 1 ) 1 ) 

go to 29 
else 

go to 10 
endif 
endif 

29 return 
end 


c 

c 

c dial runstream generation subroutines. 

c 

c## ############ 

cSUBROUTINE FMESH 

SUBROUTINE fmesh 

common /geom/ NBY, NBZ , NWAL , D , ALPHA, R , T1 , T2 , B , 

* NBC, NMESH 

common /matl/ NMAT,E1(3,6,5) ,V1C3,6,5) ,G1(3,6,5) , 

* EC6),V(6) ,HH(6 ) 

common /wall/ MWP,MWS,NWP(16) ,NWS(16) , PTC 16) ,PA(16) ,ST(16) , SAC 16) 

c ... 
c ... 

c . fmesh : fine mesh generation 

c ... 



c . . 
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character*40 fmtl , fmtZ , f mt3 ,f mtA , f mt5,fmt6 , fmt7 ,fmt8 ,fmt9 

character*40 frtl ,frt2,frt3,frt4 

f mtl= ' ! ' ' 8al2=' ' ,flO .4) * 

f mt2= * ( • ' 8alpha= " ,flO .4) ' 

f mt3= • ( " 8r= " ,f 10 . A) ' 

f mtA= ' C ’ * 8tl = ' ' ,f 9 . 6) ' 

fmt5='!" 8t2= ' ' ,f 9 . 6) ’ 

fmt6='(" 8b= ' * »f 10 . 4) ' 

fmt7 = ' ! " 8nby= " ,i2) ' 

f mt8 = ' ! " 8nbz= " ,i2) ' 

fmt9 = ' C * ' let 8nbc=",i2)' 

100 format! ' 8mwp=',i2,' #wallam nun. for panel') 

101 format( ' 8mws=',i2,' iwallam num. for whole stif . ' ) 

102 formatC 8mwh=',i2,' iwallam num. for middle half stif.') 

103 formatC' 8mwe =, ,i2,' iwallam num. for top 8 bot. half stif.') 

open( unit=12, status= ' unknown' , f ile= 'fmesh.com' ) 

tl = 0. 
t2=0 . 

do 11 i=l,MWP 
tl=tl+PT!i) 

11 continue 

do 12 i=l ,MWS 
t2=t2+ST e i ) 

12 continue 

c write!12, •("•")') 

c writee 12 , ' ( ' ' In -s act.f02 FIL002'*)') 

c writee 12, ' ! " source /usr/local/dial/init . com' • ) ' ) 

c writee 12 e ' ' mesh << \!")’) 

writee 12, ' e ' '$MESH ' * ) ' ) 
write! 12, ' ! " open 6 "mesh . out’" ')* ) 
write ! 1 2 , ' ! ' ' CLEAR -1")') 
write! 12, " max 20000,20000")') 

write! 12 , ' ! ' 1 ELTYPE A,2,6 " ) ' ) 
ciiiiiiiiiiiiiiiiiiiiiii 

cigeodesic fuselage panel; updated version 8/8/90 

cimeshl panel 

ciiiiiiiiiiiiiiiiiiiiiii 

write! 12, ' ! " set syntax on")') 
write! 12, '( ' ' sub CONO 81stl 81st2 81st3")') 
write!12, '! ' ' let 8nnod=/£ipp! 1 ) " ) ' ) 
write! 12 , ' ! " let 8ifn=Xif 1! nlst . nv, 0 ,81st2" ) ’ ) 
write! 12 , ' ( " let 81n=Xlfm! 8ifn, 1 ) " ) ' ) 
writeC12, '! " let 8nl=/!ibcl! 81n , 1 ) " ) ' ) 
write! 12, ' ! " let 8d=Xrfm!8ifn, 1 , 0 ,81n) " ) * ) 
c 

write! 12 , ' ! ' 1 let 8if n=Xif 1! nlst . nv, 0 ,81st3) " ) • ) 
write! 12, ' ( ” let 81n=Xlfm! 8ifn, 1 ) " ) ' ) 
write! 12, ' ! " let 8n2=Xibcl ! 81n , 1 ) " ) ' ) 
write! 12, ' ( " let 8d=Xrfm! 8ifn, 1 , 0 ,81n) " ) ’ ) 

c 

write! 12, ' ! " let 8ifn=Kif l!nlst . nv, 0 ,81stl ) " ) • ) 
write! 12, '! • ' let 81n=Xlfm! 8ifn, 1 ) " ) ’ ) 
c 

write! 12, ' !";f2 format " " ! lx , i5) " ) • ) 

write! 12, ' !";10 format ""!""Print Nodal Coordinates' '", lx, * 

*' ' 'Node* "')")') 
write! 12, * C " write 6 ;f2 8nl")') 
write! 12, ' ( " write 6 ;f2 8n2")') 
write! 12, ' ( ' ' write 6 ;10")') 
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writeC 12, ' C ' ' do ;20 8n=l ,8nnod' • ) • ) 
writeC 12 , ' ( ’ ' if /CibclC81n,8n) ;20, ;20,1 • • ) • ) 
writeC 12 , ' C " let 8nn=XibclC81n,8n) • ' ) ' ) 
writeC12,'C" write 6 ;f2 8nn ,, ) , ) 
wri te ( 1 2 , * C * * conode 8nn 8nl 8n2 1 l.e+9")') 
write( 12, * ( ' * ;20 continue")') 

writeC 12, * ( ' ' let 8d=Xrf m( 8if n , 1 , 0 , 81n) ' ' ) * ) 
c 

writeC 12 , ' ( 1 * return 1 ')*) 
writeC 1 2 , 1 ( * ’ end'*)') 
c 
c 

writeC 12 , ' ( 1 1 let &all=120 . 1 • ) ’ ) 
dtmp=D*2 . 

writeC 12 ,fmtl ) dtmp 
writeC 1 2 , f mt2 ) ALPHA 

writeC 12, ' C " 8beta=66 . tangle beta")') 

writeC 12 , f mt3 ) R 
writeC 12,fmt9)NBC 

writeC 12, ' C ' ' 8duml=8alpha/2 . ’ • ) ' ) 
writeC 12, • C ' * 8duml=8duml/360 . • • ) ' ) 
writeC12, *C * ' 8duml=8duml*2 . • • >•> 
writeC 12 , • C • ' 8duml=8duml*Xpi • • ) * ) 
writeC 12, * ( ' ' 8s2=8al2/2 . • ’ ) ' ) 
writeC 12, •( * ' 8sl=8s2*XtanC8duml) • ')') 
writeC 12, * C * * 8dum2=2 . *8r • • ) * ) 
writeC 12 , ' C ' • 8dum2=8dum2*Xpi " ) * ) 
writeC 12, ' C" 8dum3=8sl/8dum2 • • ) • ) 
writeC 12 , • C • • 8dum3=8dum3*360 . • • ) • ) 
writeC 12 , • C * * 8dum3=XabsC8dum3) • • ) • ) 

writeC 12, ' C ' ' 8yC 1 )=8dum3/3 . impt coord, in theta dir.")') 

writeC 12 , * C * • 8yC 2)=8y C 1 )*2 . • ' ) • ) 

writeC 12 , ' C " 8yC3)=8dum3" ) ' ) 

writeC 12, ' C • ' 8yCA)=8dum3+8yCl ) • 1 ) ' ) 

writeC 12 , 1 C ' • 8yC 5)=8dum3+8yC2) 1 • ) * ) 

writeC 12, ' C ' ' 8yC6)=8dum3*2. • ')•) 

writeC 12 , ' C " 8zCl)=Ss2/3. impt coord, in z dir. "I') 

writeC 12, 'C ' ' 8zC 2)=8zC 1 )*2 . • • ) ' ) 

writeC 12, 1 C ' ' 8zC3)=8s2' • ) • ) 

writeC 12, * C ' • 8zC 4 )=8s2+8zC 1 ) * • ) 1 ) 

writeC 12, • C ' ' 8zC5)=8s2+8zC2) ’ ' ) ') 

writeC 12, ' C " 8zC6)=8s2*2 . • • ) ’ ) 

writeC-12,fmt4) T1 

writeC12,fmt5) T2 

writeC12,’C" 8t3=8t2/2. ihalf thick, of stif.")') 

writeC 12 , ’ C ' * 8ofl=8tl/2. ipanel offset")') 

writeC 12, ' C ' ' 8of2=8t3/2. ibottom stif. offset")') 

writeC 12, ' C ' ' 8of3=8t3/-2. itop stif. offset")') 

writeC 12 , fmt6 ) B 

writeC 12 , ' C " 8n=3")') 

writeC 12 , f mt7 ) NBY 

rnbz=NBZ*l . /2 . 

inbz=INT C rnbz ) 

writeC 1 2 , fmt8 ) inbz 

writeC12,fmt9) NMAT 

writeC 12,' C" 8mw=2 inum. of wall layup")') 

writeC 12, 100)NMAT+1 

writeC12,101)NMAT+2 

writeC 12 , 1 02)NMAT+3 

writeC 12 , 1 03)NMAT+A 
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write( 12 , * ( ' ’ 6 , 38 : 38t42 : 42, 22 ' • ) • ) 

write( 12, * ( ' ' 35,40:40,45")') 

writeC 12, ' ( ' ' circles 3,4,52")') 

writeC 12 , ' C ' * 4,5,52:5,6,52:6,7,52:7,8,52:8,9,52")’) 
writeC 12, ' ( ' ' 32,33,53:33,38,53:38,43,53:43,12,53")') 
writeC 12 , ' ( ' • 31,34,54:34,39,54:39,44,54:44,13,54")') 
write(12, •( • ' 30,48,55:48,49,55:49,35,55")') 
write(12, '( ' ' 45,50,55:50,51,55:51,14,55")') 
writeC 12 , ' ( ' ' 29,36,56:36,41,56:41,46,56:46,15,56")') 
write( 12 , ' C " 28,37,57:37,42,57:42,47,57:47,16,57")') 
writeC 12, '(" 25,24,58:24,23,58:23,22,58")') 
writeC 12 , ' ( ' ' 22 , 21 , 58 : 21 , 20 , 58 : 20 , 19 , 58 " ) ' ) 
writeC 12 ,'(' ' splines 3 , 35 , 1 . , 3 , 33 , 34 , 35* • ) ' ) 
writeC 12, ' C ' ' 35 ,25, 1 . , 35 , 36 , 37 , 25 " ) ' ) 

writeC 12 , ' C ' • 9,45,1 . ,9 .43,44, 45" )' > 

writeC 12, ' C " 45, 19 , 1 . , 45,46 , 47 , 19" ) ' ) 

wr i te C 1 2 , ' C * ' ksshell 1 , 26 , 1 ,8tl ,8tl ,8tl »8tl ,>'')' ) 

writeC 12, ' C " 8of 1 ,8of 1 , 8of 1 , 8of 1 , 8mwp , msh , 1 , 0 , 0 , 0 . ,LEFT' • ) * ) 
writeC 12, * ( " ksshell 3,43,1 ,8tl ,8tl ,8tl ,8tl ,8ofl,>" )' ) 
writeC 12, ' C " 8ofl ,8of 1 , 8of 1 , 8mwp ,msh , 1 , 0 , 0 , 0 . .DOWN" )' ) 
writeC 12 ,' C ' ' ksshell 1 0 , 17 , 1 , 8tl ,8tl ,8tl ,8tl ,>•')' ) 
writeC 12, ' C * * &ofl , 8oT 1 , 8 of 1 , 8o*f 1 , 8mwp , msh ,1,0, 0,0. .RIGHT ' ' ) ' ) 
wr i te C 1 2 , * C ' ' ksshell 37 , 19 , 1 ,8tl ,8tl ,8tl ,8tl ,>*')' ) 
writeC 12 , ' C ' * 8oT 1 , 8of 1 , 8o"f 1 , 8 ot 1 , 8mwp , msh ,1,0, 0,0., UP'')') 
writeC 12 , • C * ' ksshell 2 , 25 , 1 ,8tl ,8tl ,8tl ,8tl ,> " ) ' ) 
writeC 12 , ' C * ' 8of 1 ,8of 1 ,8of 1 ,8of 1 , Smwp.msh, 1 ")') 
writeC 12 , ' C * ' ksshell 33 ,47 , 1 ,8tl ,8tl ,8tl ,8tl ,> " ) ' ) 
writeC 12, ' C ' • 8of 1 ,8of 1 ,8of 1 ,8of 1 ,8mwp,msh,l " ) ') 
writeC 12 , ' C ' ' ksshell 9 , 18 , 1 ,8tl ,Stl ,8tl ,8tl ,> " ) ' ) 

writeC 12, ' C • ' 8of 1 ,8of 1 ,8of 1 ,8of 1 ,8mwp ,msh , 1 " ) ' ) 
writeC 12, ' C ' ' ijname 1 3 BTL")') 
writeC 12 , ' C ' ' 9 11 BTR")') 

writeC 12 , ' C * ' 19 17 TOL")') 

writeC 12 , ' C ' ' 27 25 TOR")') 

writeC 12, • C " mesh")') 
writeC 12, ' C ' ' merge")') 
c... *»»«»«# 

c. . . #mesh2 , 3--stif f ener 
c. . .######* 
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Sy C 6 ) 

SzC3) 

l* •)•) 

writeC 12 , 1 C 1 f 

21 

35 

3 

Sr- 

Sb 

SyC 5) 

SzC 3) 

i ,f ) f ) 
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writeC 12 , * ( 

V 1 

22 

33 3 

8r-8b 8y C 4 ) 8zC3) 

1 

**) 

*) 

writeC 1 2 , ’ C 

1 1 

23 

31 3 

8r-8b 8y C 3 ) 8zC3) 

1 

* * ) 

*) 

writeC 12 , T C 

1 1 

24 

29 3 

8r-8b 8y C 4 ) 8zC2) 

1 

**) 

*) 

writeC 12 , * C 

1 « 

25 

27 3 

8r-8b 8yC 5 ) 8zCl) 

1 

**) 

*) 

writeC 12 , * C 

f « 

26 

25 3 

8r-8b 8yC 6 ) 0, 

1 

** ) 

*) 

wr i teC 1 2 , 1 C 

■ « 

27 

23 3 

8r-8b 8y C 5 ) 0. 

1 

**) 

*) 

writeC 12 , * C 

1 1 

28 

21 3 

8r-8b 8y C 4 ) 0. 

1 

**) 

*) 

writeC 12 , * C 

« V 

29 

19 3 

8r-8b 8y C 3 ) 0. 

1 

**) 

*) 

writeC 1 2 , *C 

t • 

30 

17 3 

8r-8b 8yC2) 0. 

1 

**) 

*) 

writeC 12 , *C 

1 • 

31 

15 3 

8r-8b 8y C 1 ) 0. 

1 

**) 

*) 

wr i te C 12 , * C 

• • 

32 

13 3 

8r-8b 0. 0. 

1 

**) 

*) 

writeC 12 , 1 C 

• 1 

33 

11 3 

&r-8b 8y C 1 ) 8zCl) 

1 

**) 

*) 

writeC 12 , * C 

1 « 

34 

9 3 

8r -8b 8yC2) 8zC2) 

1 

* * ) 

*) 

writeC 1 2 , 1 C 

1 1 

35 

7 3 

8r -8b 8yC3) 8zC3) 

1 

**) 

») 

write C 12 , *C 

« » 

36 

5 3 

8r-8b 8y C 2 ) 8zC3) 

1 

* * ) 

* ) 

write C 1 2 , * C 

• 1 

37 

3 3 

8r-8b 8yC 1 ) 8zC3) 

1 

* * ) 

*) 

writeC 1 2 , *C 

• 1 

38 

1 3 

8r-8b 0. 8zC 3) 

1 

**) 

* ) 

write C 1 2 , 1 C 

1 1 

39 

0 0 

0. 0. 0. 

1 

**) 

*) 

writeC 1 2 , * C 

• • 

40 

0 0 

0. 0. 8zC 1 ) 

1 

**) 

*) 

writeC 1 2 , *C 

V 1 

41 

0 0 

0. 0. 8zC 2) 

1 

**) 

* ) 

writeC 1 2 , *C 

f t 

42 

0 0 

0. 0. 8zC 3) 

1 

••) 

') 

writeC 12 , * C 

V • 

slines 1 

,38:4,35:7,32:13,26:16, 

23 

: 19 

,20'*)') 

writeC 12 , * C 

1 t 

circles 7 

,8,39:8,9,39:9,10,39:10 

,11,39**)*) 

writeC 12 , * C 

1 1 

11, 

12,39:12 

,13,39* * ) *) 




writeC 12 , * C 

• • 

32, 

31,39:31 

,30,39* * ) * ) 




writeC 1 2 , * C 

• I 

30, 

29,39:29 

,28,39:28,27,39:27,26,39* 

*) * 

) 

writeC 12 , *C 

1 « 

1,2 

,42:2,3, 

42:3, 4, 42**)*) 




writeC 1 2 , *C 

« 1 

16, 

17,42:17 

,18,42:18,19,42**)*) 




writeC 12 , ’ C 

« « 

38, 

37,42:37 

,36,42:36,35,42**)*) 




writeC 12 , *C 

« « 

23, 

22,42:22 

,21,42:21,20,42**)*) 




writeC 12 , * C 

« 1 

splines 7 

,4,1. ,7, 6, 5, 4**)*) 




writeC 12 , ' C 

I 1 


32,35,1 . 

,32, 33, 34, 35**)*) 




writeC 12 , * C 

• I 


26,23,1 . 

,26,25,24,23**)*) 




writeC12, *C 

• ■ 


13,16,1 . 

,13,14,15,16* *)*) 




write C 12 , 'C 

• > 

ksshell 

1 ,35, 1 ,8t3,8t3,8t3,8t3. 

>» 

*)* 

) 


c . 
c . 
c . 


write C 1 2 , * C 
wri te( 12 , * C 
wri te( 1 2 , 'C 
wri te( 1 2 , * C 
writeC 12 , * C 
writeC 12 , * C 
wri teC 12 , * C 
wri teC12 , * ( 
wri teC 12 , ' C 
wr i te( 12 , * C 
wr i te( 12 , ’ C 
wr i te( 1 2 , * ( 
writeC12, *C 
wr i te( 12 , *C 
wr i te( 1 2 , ' C 
.########## 

. tauto bay generation 

.»»»*«#»»#* 

wr ite( 12 , * ( f * 
wr ite ( 12 , 1 ( * 1 
writeC 12 , * C * * 
write( 12 , f ( 1 1 
writeC 12, * C * * 
writeC 12 , * C * * 
writeC 12, 1 C • 1 


8of3,8of3,8of3,8of3,8mwh,msh,l,-l,0,0. ,STIF* ■ ) » ) 
ksshell 4,32,l,8t2,8t2,8t2,8t2,4m0. ,>* * )*) 

8mws , msh , 1 , - 1 , 0 , 0 . , STIF f * ) 1 ) 
ksshell 7,26,l,8t3,8t3,8t3,8t3,>* *) *) 

8of 2 ,8of 2,8of 2 , 8of 2 ,8mwe ,msh, 1 ,-l ,0,0 . ,$TIF* 1 )• ) 
ksshell 13,23,1 , 8t2 , 8t2 , 8t2 , 8t2 , 4m0 .,>**)*) 

Smws , msh , 1 , - 1 , 0 , 0 . , ST I F f 1 ) » ) 
ksshell 16,20,l,8t3,8t3,8t3,8t3,>**)*) 

8of 3 ,8of 3 , 8of 3 ,8of 3 ,8mwh ,msh, 1,-1, 0,0. , STIF * f ) 1 ) 

mesh * * ) * ) 

merge mesh=l ,, ) , ) 

ditto mesh=2 * * ) * ) 

mirror 3 0 1 * ■ ) 1 ) 

trans 2.*8s2 S' 1 ) 1 ) 

merge mesh=l , 2 * * ) * ) 


let 8nm=3 imesh number counter**)*) 

let 8dz=8zC6) taxial position**)*) 

let 8dy=8yC6) itheta position* *)* ) 

if 8nbz-l ,8,8,1**)*) 

do ; 10 8i=l,8nbz“l,l**)*) 

ditto mesh=l t3 * * ) * ) 

trans 8dz 3**)*) 
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writeC 1 2 
writeC 12 
writeC 12 
writeC 12 
wri te( 1 2 , 
write( 12 , 
write (12, 
writeC 1 2 , 
writeC 1 2 , 
writeC 12 , 
writeC 1 2 , 
writeC 12 , 
writeC 12 , 
writeC 1 2 , 
writeC 1 2 , 
write C 1 2 , 
writeC 1 2 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 1 2 , 
writeC 1 2 , 
writeC 12 , 
writeC 1 2 , 
writeC 12 , 
writeC 1 2 , 
writeC 1 2 , 
write C 1 2 , 
writeC 12 , 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
writeC 1 2 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
writeC 12 
wri teC12 


( 1 
( * 

(' 

( 1 
( 1 
( * 

( * 

( f 
( 1 
( * 

C 1 
( 1 
( ' 
c * 

( ' 

( 1 
( f 
( 1 
C 1 

c f 
c 1 
(' 

( 1 
( ■ 

( * 
c ■ 
c * 
c * 

( r 1 
*( * * 
C 1 * 

( 1 * 

C 1 1 

c f 1 

C 1 1 
C f * 

( • ' 

( • 1 
c * • 

( 1 * 

(** 

' C t. 


merge 1 f ) 1 ) 

let 8dz=8dz+8z ( 6 ) * * ) ' ) 
let 8nm=8nm+l * 1 ) 1 ) 

; 1 0 nop ' * ) ' ) 
continue ' * ) ' ) 
if &nby-l , 1 0 , 1 0 , 1 1 * ) f ) 
do ; 1 1 8i = l , 8nby- 1 , 1 * ) 1 ) 

let 8nd = l #ditto mesh number counter ,, ) t ) 

ditto mesh = 8nd * 1 ) 1 ) 

rotate 8dy 3 ' ' ) * ) 

merge 1 f ) 1 ) 

let 8nd=8nd+ 1 * * ) * ) 

if 8nd-8nm , -4 , -4 , 1 * * ) 1 ) 

let 8dy=8dy+8y ( 6 ) * * ) ' ) 

; 1 1 nop’*)') 
continue 1 • ) 1 ) 
let 8br 1=0 . '*)•) 

8br2=8r+0 .01' ')*) 

8blyl = ~ 0 . 1 1 1 ) 1 ) 

8bly2=0 . l+8y ( 1 ) * * ) * ) 

8bryl =8dy-8y ( 1 ) * * ) * ) 

8bryl=8bry 1-0.1* ’ ) * ) 

8bry2 = 8dy+0 . 1 * * ) * ) 

8bdzl = - 0 . 1 * * ) * ) 

8bdz2=0.1+8z(l )'*)*) 

8buzl=8dz-8z(l) * * ) ’ ) 

8buzl = 8buzl - 0 . 1 * * ) * ) 

8buz2 = 8dz+0 . 1 * * ) * ) 

mset 1 insert name=left #edge V 1 )*) 
mset 1 insert name=stif ' ' ) ' ) 
mset 1 mask volu >•*)•) 

8br 1 , 8br2 8blyl,8bly2 8bdzl,8buz2 l ,f )') 
mset 2 insert name=down tedge l 11 )*) 
mset 2 mask volu >•*)') 

8brl , 8br2 8blyl,8bry2 8bdzl,8bdz2 l**)*) 
mset 3 insert name=right iedge 2 ,, ) f ) 
mset 3 mask volu 

8br 1 , 8br2 8bryl,8bry2 8bdzl,8buz2 l ,f )') 
mset 4 insert name=up #edge 3**)*) 
mset 4 mask volu >**)*) 

8brl,Sbr2 8blyl,8bry2 8buzl,8buz2 l 11 )*) 
mset 5 insert name=stif #stif f ener 1 1 ) * ) 
mset 6 insert matl=8mwp #panel ,, ) , ) 


c...# b c conditions setup 
c...# nbc=l infinite panel 
c...# =2 sides clamped, 

c...# =3 ends clamped, 

c. . .ft######* 

writeC 12 , 1 C 1 ' nset 1 
writeC 12 , * ( * * nset 1 


insert 

insert 


mset=6 ' * ) * ) 
mset = 5 * * ) * ) 


N=1 

writeC 12 , 1 C * 1 if 8nbc-2 1 , ; ca2 , ; ca3 * * ) 1 ) 
cttcase one, part of a larger panel 

writeC 12, 1 ( * ' bcsys -4120. l.e+9 nset=l ,, )•) 
writeC 12, ' ( ' ' bcsys -5130. l.e+9 nset=l ,, )’> 
writeC 12 , ' C ' ' bcsys -412 8dy l.e+9 nset=l ,, ) , ) 
writeC 12,' C" bcsys -5 13 8dz l.e+9 nset=l”)’) 
writeC 12,' C" goto icon")') 
cicase two, sides are clamped 

write<12,M" ;ca2 bcsys -4120. l.e+9 nset=l ,, ) , l 
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writeC 12 , f 

C" 

bcsys 

-5 

1 

2 

0. l.e+9 nset=l ' 

')') 

writeC 12 , 1 

C tf 

bcsys 

-6 

1 

2 

0. l.e+9 nset=l 1 

')') 

writeC 12 , * 

( • • 

bcsys 

-1 

1 

2 

0. l.e+9 nset=l f 

1 )') 

writeC 12,' 

( f ' 

bcsys 

-3 

1 

2 

0. l.e+9 nset= 1 f 

')') 

writeC 12 , 1 

C 1 1 

bcsys 

-4 

1 

2 

Sdy l.e+9 nset=l 

..)f> 

writeC 12 , ' 

c • • 

bcsys 

-5 

1 

2 

Sdy l.e+9 nset=l 

1 f )») 

writeC 12,* 

C 1 1 

bcsys 

-6 

1 

2 

Sdy l.e+9 nset=l 

")•) 

writeC 12," 

C • • 

bcsys 

-1 

1 

2 

Sdy l.e+9 nset=l 

")■) 

writeC 1 2 , f 

C * ' 

bcsys 

-3 

1 

2 

Sdy l.e+9 nset^l 

• 1 ) 1 ) 

writeC 1 2 , 1 

C * * 

goto 

; con 1 

? ) 

') 



cicase three, e 
writeC 12 , 
wri te( 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 


nd 

C 

C 

c 

c 

( 

c 

c 

c 

c 

c 


are clamped 
• ; ca3 bcsys -4 


1 3 0. l.e+9 nset=l f * ) 1 ) 


bcsys 

bcsys 

bcsys 

bcsys 

bcsys 

bcsys 

bcsys 

bcsys 

bcsys 


-5 

-6 

-3 

-2 

-4 

-5 

-6 

-3 

-2 


0 . 
0 . 
0 . 
0 . 
&d z 
Sdz 
&dz 
Sdz 
Sdz 


l.e+9 
l.e+9 
l.e+9 
l.e+9 
l.e+9 
1 . e+9 
l.e+9 
1 .e+9 
l.e+9 


nset=l" )•) 
nset=l 1 * ) ' ) 
nset=l f f )') 
nset=l* ')*) 
nset=l")') 
nset=l " ) ' ) 
nset=l " ) ' ) 
nset=l " ) ' ) 
nset=l")') 


writeC 12 , ' C ’ 1 

; con 

continue ' ' ) ' ) 

writeC 12 , 1 C * 1 

nset 

13 

insert mset 3")') 

writeC 12 , ' C f * 

nset 

14 

insert mset 4")') 

writeC 12 , ' C ' 1 

nset 

99 

insert name=BTl ' ' ) ' ) 

writeC 12 , f C 1 ■ 

nset 

98 

insert name=BTR ' * ) f ) 

writeC 12 , • ( 1 • 

nset 

97 

insert name=T0L ' ' ) * ) 

writeC 12 , * ( 1 • 

nset 

96 

insert name=T0R 1 ' ) * ) 

writeC 12 , ' C " 

nset 

99 

list 1 *)') 

writeC 12 , 1 C • 1 

nset 

98 

list 11 ) 1 ) 

write C 12 , 1 C 1 • 

nset 

97 

list")') 

writeC 12 , ' C ' • 

nset 

96 

list")') 

writeC 1 2 , 'C M 

nset 

98 

mask nset 13* * ) 1 ) 

wri teC 12 , * C ' 1 

nset 

97 

mask nset 13") ■) 

writeC 12 , 1 C 1 • 

nset 

97 

mask volu -999., 999., 

*")') 




writeC 12 , ' C * f 

nset 

96 

mask nset 14")') 

writeC 12 , 1 C 1 1 

nset 

98 

list")') 

writeC 12 , ' C ' • 

nset 

97 

list")') 

writeC 12 , ' C ' * 

nset 

96 

list")') 

ciiiiibottom left corner 

node 

writeC 12 , ' C ' * 

nlist 

99 

insert nset 99")') 

ciiiiibottom right corner 

node 

writeC 12, 1 C 1 • 

nlist 

98 

insert nset 98")') 

ciiiiitop right corner node 


wri teC 12 , ' C ' ' 

nlist 

97 

insert nset 97")') 

ciiiiitop left corner node 


writeC 12 , 1 C 1 • 

nlist 

96 

insert nset 96")') 

writeC 12 , f C 1 • 

dofsup 1 

nset=99 " ) ' ) 

writeC 12 , ' C ' • 

dofsup 0 

nset=98 " ) * ) 

writeC 12 , 'C" 

dofsup 1 

nset=97 " ) • ) 

writeC 12 , ' ( * ' 

dofsup 2 

nset c 97 " ) ' ) 

writeC 12 , ' C " 

set echo 

on")') 





ciall nodes on bottom edge 


writeC 12, 1 C 1 1 

nset 

95 

insert volu -999., 999 

writeC 12 , ' C 1 • 

nset 

95 

list")') 


,999 . ,&buzl ,&buz2 


ciall nodes on top edge 
writeC 12, ' C 1 ' nset 
*")•) 


-999. ,999. ,0. ,0. 1 ' ) ' ) 


94 insert volu -999 . ,999 ., -999 . ,999 ., Sdz, Sdz 
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writeC 12 , 


nset 94 list")’) 


cftall nodes on left edge 

write( 12 , ' ( " nset 93 insert volu -999 . , 999 . , 0 . , 0 . , -999 . , 999 . " ) • ) 
cttall nodes on right edge 

write( 12 , * ( ’ • nset 92 insert volu 0 . , 999 . ,8dy , 8dy , -999 . ,999 . , 1 , 0 . 0 
KOI'*)’) 

write( 12 , ' ( ' * nset 93 dele nset gS'')’) 
writeC 12 ,* C ’ 1 nset 93 dele nset 9 <♦ * * ) 1 ) 
writeC12, •( ’ • nset 92 dele nset 95 ,, ) , > 
writeC12, •( • • nset 92 dele nset 94 ,, ) , > 
write! 12 » * ( * * nset 93 list")*) 
write( 12, ’ ( * * nset 92 list")') 
writeC12, •( •• nlist 95 insert nset gB")’) 
write! 12 C ' ' nlist 94 insert nset 94 ,, ) , 1 
write! 12 C ' ' nlist 93 insert nset 9 3 * * > * ) 
write( 12, ' ( ' ' nlist 92 insert nset 92")') 
write( 12# *C ' ' show var dy*')') 
write( 12, ' C * * call cono 95 99 98 ,, ) t ) 
write( 12# * C * * call cono 94 96 97 ,, ) , ) 
write! 12# ' ( ' * call cono 93 99 96")') 
writeC 12 , • ( • • call cono 92 98 97 ,, ) , ) 
writeC 12, ' ( ' * FINISH ,, ) , ) 
writeC 12 # * C * ’* STOP")') 
c writeC 12, •(** !•*)*) 

close! uni t= 12) 
return 
end 

ctt*««***t*tft 

cSUBROUTINE FMESH2 
c**tt«»*ttMt 

SUBROUTINE fmesh2 

common /geom/ NBY# NBZ , NWAL , D , ALPHA , R,T1 ,T2# B , 
x NBC.NMESH 

common /matl/ NMAT , El C 3, 6 , 5) , V1C3 , 6 , 5) ,G1 C 3 , 6 # 5) , 

* EC6) ,VC6) ,MMC6) 

common /wall/ MWP , MWS , NWPC 16 ) , NWS! 16 ) , PTC 16 ) , PAC 16 ) , STC 16 ) , SAC 16 ) 


fmesh : coarse mesh generation 


character *40 f mt 1 , f mt2 , f mt3 , f mt4 , f mt5 ) f mt6 , f mt7 , f mt8 , f mt9 

character*40 frtl ,frt2,frt3,frt4 

fmtl= ' C ' * , 8al2= ' ' , f 10 . 4) ' 

f mt2= * C * ' 8alpha= ' ' ,f 10 . 4) ' 

f mt3= * C • ’ 8r= ' • ,f 10 . 4) * 

f mt4= * C ' * 8tl= ' ' ,f 9 . 6) ' 

fmt5= ’ C ’ ' 8t2= • * ,f 9 . 6) ' 

fmt6= • C * • 8b=' ' ,fl0 .4) ' 

f mt7= * C * * 8nby= ' ' ,i2) ' 

f mt8= ' C ' ' 8nbz=* * ,i2) * 

fmt9= • C ' ' let 8nbc= ' * ,i2) ’ 


100 

formate 1 

&mwp= 1 , i2 , 1 

iwallam 

num . 

for 

panel v ) 

101 

formatC 1 

&mws= 1 ,i2 , * 

iwallam 

num . 

for 

whole stif . * ) 

102 

formate 1 

&mwh= f ,i2, 1 

iwallam 

num . 

for 

middle half stif. 1 ) 

103 

formate • 
tl = 0. 
t2=0 . 
do 11 i= 

&mwe= 1 , i2 , f 
1 / MWP 

iwallam 

num . 

for 

top & bot. half stif. 1 ) 


tl=tl+PTCi) 
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11 


continue 
do 12 i= 1 , MWS 
t2=t2+STCi) 

12 continue 

openC unit= 1 2 , status= * unknown * , f ile= * f mesh .com 1 ) 
c writeC12, , C ,, f ,, ) , ) 

c write C 12 , * C * • In -s act.f02 FIL002 t, ) , > 

c writeC 12 , 1 ( ' * source /usr/local/dial/init . com* * ) * ) 

c wri teC 12, 1 C ' 1 mesh << \! f, ) f ) 

writeC 12, * C ' 1 $MESH ")*) 
writeC 12 , f ( * * open 6 ”mesh . out” * ’ ) * ) 
wri te( 12 , * C * * CLEAR -1 * 1 ) • ) 
writeC 12 , * C * * max 20000 , 20000 1 1 )• ) 
writeC 12 , * C * * ELTYPE A,2,6 f *) f ) 

ctgeodesic fuselage panel; updated version 8/21/90 
c#meshl panel 

write C 12 C * * set syntax on 1 1 ) 1 ) 
writeC 1 2 , * C * * sub CONO filstl &lst2 81st3 ,, ) f ) 
ctlstl-- node list to be constrained. 
ctlst2 , lst3- - corner nodes. 

writeC 12 , * C • • let 8nnod=XippC 1 ) ' * ) * ) 
c# 

writeC 12 , * C * * let fiif n=Xif 1 Cnlst . nv , 0 ,&lst2) f f > • ) 
writeC 12 , * C * * let &ln=Xlf mCfiif n , 1 ) ■ ■ ) 1 ) 
writeC 12, 1 C • 1 let finl =Xibcl C 8 In , 1 ) f f ) 1 ) 
writeC 12 , * C * * let fid=Xrf mC fiif n , 1 , 0 , filn) 1 • ) f ) 

c# 

write C 1 2 , * C * * let fiifn^Xif lCnlst . nv,0 ,81st3) * 1 ) 1 ) 
writeC 12 , * C * * let filn=Xlf mC fiifn , 1) * 1 ) 1 ) 
writeC 12 , ' C ' * let &n2=Xibcl C &ln , 1 ) » ' ) 1 ) 
writeC 1 2 , * C * * let &d=XrfmCfiifn, 1 , 0 ,filn) ' * ) * ) 

c# 

writeC 1 2 , * C * * let 8ifn=Xifl Cnlst . nv , 0 ,filstl )• f ) f ) 
writeC 12 , * C * * let &ln=XlfmC fiifn , 1 )*•)* ) 

c# 

writeC 12 , * C 1 1 ;f2 format * f * 1 C lx , i5) f ' ) * ) 

write C 1 2 , * C ' * ;10 format 1 • 1 1 C f # 1 1 Print Nodal Coordinates * * * lx , * 
* 1 * 1 Node ' *•*)*»)» ) 
writeC 12 , * C * • write 6 ;f2 finl ' * ) ' ) 
writeC 12 , * C ' * write 6 ;f2 fin2 lf )*) 
write Cl 2, 1 C * * write 6 ;10 ,, ) f ) 
c# 

writeC 1 2 , * C * * do ;20 fin=l , &nnod 1 1 ) ■ ) 
writeC 12, 1 C * * if Xibcl Cfiln , fin ) ; 20 , ; 20 , 1 * 1 ) f ) 
writeC 12 , * C * * let finn=Xibcl C&ln , fin) * 1 ) 1 ) 
writeC 1 2 , ' C * ' write 6 ;f2 finn'*)*) 
writeC 12 C * * conode finn finl &n2 1 l.e+9 f, ) , ) 
writeC 12 , 1 C * 1 ;20 continue 1 *)* ) 
write C 12 , ' C ' * let &d=XrfmC fiif n , 1 , 0 , filn) * * ) * ) 
ct 

writeC 12 , 1 C * 1 return 11 )*) 
writeC 12 ,* C * • end**)*) 
writeC 12, f C 1 • let &all = 120 . ' * ) * ) 
dtmp=D*2 . 

writeC 12, fmtl ) dtmp 
writeC 12 ,f mt2) ALPHA 

writeC 12, *C 1 * &beta=66. tangle beta**)*) 

writeC 12 , fmt3) R 
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c 

c 


writeC 12, •( • • 8duml=8alpha/2 . • •)') 
writeC 12 , ' ( » • 8duml=8duml/360 . • • ) • ) 
write( 12 , '( " 8duml=8duml*2 . • ») •) 
write (12, •( • • 8duml=8duml*Xpi " ) • ) 
write(12,'(" 8s2=8al2/2 . * • ) • ) 
writeC 12 , ' ( ' » 8sl=8s2*/'tan(8duml ) • ’ ) • ) 
write( 12, * ( * ' 8dum2=2 . *8r " ) » ) 
writeC 12 , • ( • • 8dum2=8dum2*/Cpi 1 • ) • ) 
writeC 12, '( '• 8dum3=8sl/8dum2' • ) • ) 
write(12, 1 ( ' * 8dum3=8dum3*360 . • • ) • ) 
writeC 12, • ( " 8dum3=Xabs(8dum3) ••) •) 

writeC 12 ,'(' ' 8y( 1 )=8dum3/2 . #mpt coord, in theta dir.")*) 
writeC 12, * ( '• 8y(2)=8dum3' • ) • ) 
writeC 12, • C * • 8y(3)=8dum3+8y( 1 )•')') 
writeC 12, • C * * 8y ( 4 ) =8dum3*2 . • » ) ») 

writeC 12 , 1 C * * 8z(l)=8s2/2. impt coord, in z dir.")') 
writeC 12, ' ( '' 8zC2)=8s2' • ) » ) 
writeC 12, '( • 1 8z(3)=8s2+8z( 1 ) • ») ») 
writeC 12, ' C ' • 8zC 4 ) =8s2*2 . ' ' ) « ) 
writeC 12, '("THIS IS A TEST OUTPUT")') 
writeC 12, *)T1 
writeC 12,fmt4)Tl 
writeC 12,fmt5)T2 

writeC12,'C" 8t3=8t2/2. #half thick, of stif.")') 

writeC 12 , ' C ' ' 8ofl=8tl/2. #panel offset")') 

writeC 12 , ' C " 8of2=8t3/2. #bottom stif. offset")') 

writeC 12, * C ' ' 8of3=8t3/-2. itop stif. offset")') 

writeC 12 , f mt6 ) B 

writeC 12, 1 ( * 1 8n = 3* f ) 1 ) 

writeC 1 2 , f mt7 ) NBY 

rnbz=NBZ*l ./2. 

inbz=INT C rnbz ) 

writeC 12, fmt8) inbz 

writeC 1 2 , f mt9 ) NBC 

wr i teC 1 2 , r C r f 8mw=2 Inum. of wall layup 11 ) 1 ) 

writeC12,100) NMAT+1 

writeC12,101 )NHAT+2 

writeC 12, 1 02)NMAT+3 

write 02, 103) NMAT+4 


writeC 12, 1 C 1 1 

DEFSYS 

1 1 

writeC 12 , 1 C 1 ' 

IJPOINT 

1 

writeC 12 , 1 C ’ ' 

2 

3 

1 

writeC 12 , 1 C ■ 1 

3 

5 

1 

writeC 12 , 'C 1 • 

4 

7 

1 

writeC 12, 1 C 1 1 

5 

9 

1 

writeC 12, f C f 1 

6 

11 

1 

writeC 12 , ' C * 1 

7 

13 

1 

writeC 12 , 1 C * 1 

8 

15 

1 

writeC 12, 1 C 1 1 

9 

17 

1 

writeC 12, 1 C ' 1 

10 

17 

3 

writeC 12 , 1 C 1 1 

11 

17 

5 

writeC 12 , 1 C f 1 

12 

17 

7 

writeC 12 , • C 1 1 

13 

17 

9 

writeC 12 , f C 1 1 

14 

15 

9 

writeC 12 , 1 C 1 1 

15 

13 

9 

writeC12, 1 C 1 1 

16 

11 

9 

writeC 12 , f C 1 1 

17 

9 

9 

writeC 12 , 1 C f 1 

18 

7 

9 

writeC 12 , ' C ' ^ 

19 

5 

9 

writeC12, 1 C 1 • 

20 

3 

9 


0. ,0 

,0. , 1 

1 

1 8r 

8r 

0. 

8r 

0. 

8r 

8y C 1 ) 

8r 

8y C 2) 

8r 

8yC 3) 

8r 

8yC4) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8y C 4 ) 

8r 

8yC 4 ) 

8r 

8y C 3 ) 

8r 

8y C 2 ) 

8r 

&y C 1 ) 

8r 

0. 

8r 

0. 


,0. , 1 . , 
0 . 0 . 1 * 
0. 

0 . 

0. 

0 . 

0 . 

0 . 

0 . 

0 . 

8zC 1 ) 
8zC2) 

8zC 3) 
8zC4) 
8zC4) 
8zC4) 
8zC4) 
8zC4) 
8zC4) 
8zC4) 
8zC4) 


.,0. f ')•) 
) f ) 

1 * ')•) 
l' 1 )* ) 

1 * • ) 1 ) 
l ,f ) f ) 

1 * ')•) 

1 1 1 ) 1 ) 

1 * • ) * ) 

1 * 1 ) f ) 

1 1 * ) 1 ) 

1 * ■)• ) 
1 ,# )’) 
l ,f ) f ) 

1 * ') *) 

1 * ' ) 1 ) 
l ,B ) f ) 

1 1 1 ) * ) 

1 1 1 ) f ) 

1 1 1 ) 1 ) 

1 * 1 ) 1 ) 
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c . 
c . 
c . 


writeC12,'C'' 
writeC 12 , * C ' ' 
writeC 12, ' C ' ' 
writeC 12 , ' C ' ' 
writeC12, •( ' 1 
write(12, , (" 
writeC 12, ' C " 
writeC 12, ' ( * ' 
writeC 12, • C • * 
writeC 12, * ( * ' 
writeC 12, ’ C ' ' 
writeC 12, ' C " 
writeC 12, ' C '* 
writeC 12, * C " 
writeC 12, ' C * * 
writeC 12 , * C • ' 
writeC 12, * C * * 
writeC12, ' C " 
writeC 12 , * C * ' 
writeC 12,* C" 
writeC 12, * C ' ' 
writeC 12, ' C ' * 
writeC 12 , ' C ' ' 
writeC 12, ' C ' * 
writeC 12, * C ' * 
writeC 12 , ' C ' ' 
writeC 12, ' ( * ' 
writeC 12 , ' C ' 1 
writeC 12, ' C " 
writeC 12 , ' C ' * 
writeC 12, ' C ' ' 
writeC 12, ' C ' * 
writeC12,'C" 
writeC 12 , ' ( * * 
writeC12, * ( '* 
writeC 12, ' C " 
writeC 12 , ' C ' • 
writeC 12 , ' C ' • 
writeC 12 , * C ' • 
writeC 12, * C ' * 
writeC 12, ' C ' ' 
writeC 12, * C ' * 
writeC12 , • ( * * 
writeC 12 , * C ' ' 
writeC 12, * C " 
writeC 12, ' C ' * 
writeC 12 , ' C * ' 
writeC 12, * C ' ' 
writeC 12, ' C ' ' 
write C 1 2 , ' C ' ' 
writeC 12, ' C ' ' 
writeC 12 , * C ' * 
writeC 12 , * C ' ' 

.###»### 

. #mesh2, 3- -stiffener 

.«#««*•* 


21 

1 

9 

8r 

0. 

&z( 4) 

l")*) 

22 

1 

7 

fir 

0 . 

&z( 3) 

1 * 1 ) ' ) 

23 

1 

5 

fir 

0. 

&z( 2) 

l 1 ') 1 ) 

24 

1 

3 

fir 

0. 

fizCl) 

l lf )•) 

25 

5 

3 

& r 

&y ( 1 ) 

&z( 1 ) 

l f »)•) 

26 

5 

5 

fir 

&y ( 2 ) 

&z( 2 ) 

l f •)*) 

27 

5 

7 

fir 

&y( 1 ) 

&z( 3 ) 

1 1 * ) 1 ) 

28 

9 

3 

fir 

&y( 2) 

&z(l) 

1 1 1 ) ' ) 

29 

9 

5 

fir 

&y( 2) 

fizC 2) 

l tf )’) 

30 

9 

7 

fir 

&y( 2) 

fizC 3) 

l f, ) f ) 

31 

13 

3 

fir 

&y C 3 ) 

fiz(l) 

l f *)’) 

32 

13 

5 

fir 

&y(2) 

fizC 2) 

l f •)•) 

33 

13 

7 

8r 

8y( 3) 

&zC3) 

l 1 *)*) 

34 

3 

5 

fir 

8y(l) 

&z( 2) 

l f •)•) 

35 

15 

5 

8r 

&y( 3) 

&z( 2) 

l #, ) f ) 

36 

0 

0 

0. 

0. 

0. 

l #f )•) 

37 

0 

0 

0. 

0. 

fizCl) 

1 1 • ) f ) 

38 

0 

0 

0. 

0. 

fizC 2) 

l ,f ) f ) 

39 

0 

0 

0. 

0. 

SzC3) 

1 f 1 ) 1 ) 

40 

0 

0 

0. 

0. 

&zC4) 

l f ')') 

slines 


It3 :7tl5 : 19t24 

,l f f ) f ) 



5,28: 28t30 :30,17 ,, ) , ) 

26 ,29 : 29 ,32* ' ) ' ) 
circles 3,4,36")*) 

4,5,36:5,6,36:6,7,36:24,25, 37 : 25 , 28 , 37 * * ) * ) 

28,31,37:31,10,37:23,34,38:34,26,38")*) 

32,35,38:35,11,38:22,27,39:27,30,39")') 

30,33,39:33,12,39:19,18,40")*) 

18,17,40:17,16,40:16,15,40")') 

splines 3 , 26, 1 . ,3 ,25,26 * * ) * ) 

26,19,1. ,26,27,19")*) 

7,32,1. ,7,31,32* ')*) 

32,15,1. ,32,33,15")*) 
ksshell 1, 20, l,Stl,8tl»8tl»Stl» >**)') 

Sofl ,8of 1 , Sofl ,8of 1 ,8mwp , msh ,1,0, 0,0. ,LEFT* *)') 
ksshell 3,31,1 ,&tl ,8tl ,8tl , 8tl , 8ofl ,>'*)') 

8of 1 , Sofl ,8of 1 ,8mwp, msh, 1,0, 0,0. ,D0WN* ' ) ' ) 
ksshell 8 , 13, 1 ,8tl ,Stl ,8tl ,Stl ,> * * ) ' ) 

Sofl ,8of 1 ,8of 1 , 8 of 1 , Smwp , msh ,1,0, 0,0. , RIGHT ' ' ) ' ) 
ksshell 27, 15, l,8tl»8tl,8tl,8tl, >'*)') 

8of 1 , Sofl , Sofl ,8of 1 , Smwp, msh, 1 ,0,0,0 . ,UP" ) * ) 
ksshell 2 , 19 , 1 , 8tl,8tl,Stl,8tl,>")') 

8ofl , Sofl , Sofl ,8of 1 , Smwp, msh, 1* * )’ ) 
ksshell 25,33,l,8tl,8tl , Stl , Stl ,>'*)*) 

8of 1 ,8of 1 ,8of 1 ,8of 1 ,8mwp,msh,l * * ) * ) 
ksshell 7, 14, 1, Stl, 8tl, Stl, Stl, >’*)*) 

Sof 1, Sofl, Sofl, Sofl, Smwp, msh,l")') 
ijname 1 3 BTL'*)') 

7 9 BTR")') 

15 13 T0L* ')*) 

21 19 TOR")*) 
mesh")*) 
merge' ' ) ' ) 


writeC 12, 

• ( »f 

ijpoint 

1 

1 1 

fir 0. 

SzC 2) 

l'nn 

writeC 12 , 

>C" 

2 

3 

1 

fir 

fiyCl) 

fizC 2) 

i ff >•) 

writeC 12, 

. ( it 

3 

5 

1 

fir 

fiyC 2) 

fizC 2) 

i * • ) # ) 

writeC 12, 

i ( «. 

4 

7 

1 

fir 

fiyCl) 

fizCl) 

l * 1 ) * ) 
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writeC 12 , ' C ’ ' 

5 

9 

1 

8r 

0. 

0. 

writeC 12 , ' C ' ' 

6 

11 

1 

8r 

8yC 1 ) 

0. 

writeC 12 , ' C ' • 

7 

13 

1 

8r 

8yC2) 

0. 

writeC 12, 1 C ' ' 

8 

15 

1 

8r 

8y C 3 ) 

0. 

writeC 1 2 , 'C " 

9 

17 

1 

8r 

8yC 4 ) 

0. 

wri teC 12 , ' C 1 • 

10 

19 

1 

8r 

8yC 3 ) 

8z( 1 ) 

writeC 12 , ' C " 

11 

21 

1 

8r 

8yC 2 ) 

8zC 2) 

writeC 1 2 , 'C " 

12 

23 

1 

8r 

8yC 3 ) 

8zC2) 

writeC 12, ' ( " 

13 

25 

1 

8r 

8yC 4 ) 

8zC2 ) 

writeC 12, 1 C " 

14 

25 

3 

8r-8b 

8yC 4 ) 

8zC 2) 

writeC 12, • C " 

15 

23 

3 

8r-8b 

8yC 3 ) 

8zC 2) 

writeC 12, ' C " 

16 

21 

3 

8r-8b 

8yC 2 ) 

8zC2) 

writeC 12, ^ C ' ' 

17 

19 

3 

8r-8b 

8y C 3 ) 

8zC 1 ) 

writeC12, 'C " 

18 

17 

3 

8r-8b 

8yC 4 ) 

0. 

writeC 12 , ' C " 

19 

15 

3 

8r-8b 

8y( 3 ) 

0. 

writeC 12 , '( " 

20 

13 

3 

8r-8b 

8y ( 2) 

0. 

writeC 12 , ' C " 

21 

11 

3 

8r-8b 

8y C 1 ) 

0. 


writeC12, f ( 1 • 
writeC 1 2 , f ( • 1 
writeC 12 , • ( ’ * 
writeC 12 , ' C ' ' 
writeC 12 , f ( 1 ' 
writeC 12, ' C " 
writeC 12, ' C 1 • 
writeC 12 , 1 C " 
writeC 12, ' C 1 1 
writeC 12 , 1 C 1 1 
writeC 12 , 'C 1 * 
writeC12, 1 C * 1 
writeC 12 , ' C ' 1 
writeC 12, M 1 1 
writeC12, 'C 1 f 
writeC 12, •( » 1 
writeC 12 , ' C ' ' 
writeC 12, ■( " 
writeC 12 , 1 C 1 1 
writeC 12, ' C * * 
writeC 12, ' C 1 ' 
writeC 12 , 'C 1 1 
writeC 12 , ■ C • ' 
writeC12, 1 C 1 1 
writeC 12, ' C • ' 
writeC 12, 1 C 1 1 


1 1 • ) • ) 
1 ")') 
1 ")') 
1 ")') 
1 ")') 
1 ")') 
1 ")') 
1 ")' ) 
1* , ) f ) 
l ,f ) f ) 
1 ")') 
1 ")') 
1 ")') 
l* 1 ) 1 ) 
l")*) 
1 ")') 
1 ")') 
l f ')') 
1 ")') 
1 ")' ) 
1")') 
l f ')') 
l f f ) f ) 
l lf ) f ) 
l f *) f ) 


23 7 3 8r-&b 8y(l) &zCl) 

2^53 &r-8b 8yC2) 8z(2) 

25 3 3 &r-8b 8yCl) 8zC2) 

26 1 3 8r-8b 0. 8zC2) 

27 0 0 0. 0. 0. 

28 0 00. 0. 8zC 1 ) 

29 0 0 0. 0. 8zC 2) 

s lines 1 , 26:3,24: 5, 22: 9, 18: 11, 16: 13,1* f f ) f ) 

circles 21, 22, 27: 20, 21, 27:19, 20, 27:18, 19, 27 ,, ) , J 

5,6,27:6,7,27' » ) f ) 

7,8,27:8,9,27" ) ') 

I , 2,29 : 2, 3,29 : 25, 26,29 : 2^, 25, 29* * ) 1 ) 

II, 12, 29:12, 13, 29:14, 15, 29:15, 16, 29")') 
splines 5,3,1, ,5,4,3")') 

22.24.1. ,22,23,24")') 

9.11.1. ,9,10,11")') 

16.18.1. ,16,17,18")') 

ksshell 1 ,24,1 ,8t3,8t3,8t3,8t3,> " ) ') 

8of 3 ,8 of 3 ,8of 3,8of 3,8mwh,msh,l , -1 ,0,0., ST IF")') 
ksshell 3,22,1 ,8t2,8t2,8t2,8t2,4m0 .,>")') 

8mws ,msh ,1,-1 ,0,0 . ,STIF' ' ) ■ ) 
ksshell 5,18,l,8t3,8t3,8t3,8t3,>") ') 

8of 2 ,8of 2,8of 2,8of 2 , 8mwe , msh , 1 ,-1,0,0, ,STIF' * ) ' ) 
ksshell 9,16,1 ,8t2,8t2,8t2,8t2,4m0 .,>")•) 

8mws , msh ,1,-1, 0,0., ST IF") 1 ) 
ksshell Il,14,l,8t3,8t3,8t3,8t3,>* ■) ') 

writeC 12, ' C " 8of 3 ,8of 3 , 8of 3 , 8of 3 , Smwh , msh , 1 ,-1,0,0., STIF* • ) • ) 
writeC 12, ' C " mesh")') 

merge mesh = l " ) ' ) 
ditto mesh=2 ' * ) • ) 
mirror 3 0 1 " ) ' ) 
trans 2.*8s2 3" ) ’ ) 
merge mesh= 1 , 2 ' 1 ) * ) 


writeC 12, ' C " 
writeC 12 , '( " 
writeC 12, ' C " 
writeC 1 2 , ' C • ' 
writeC 12, ’ C " 
c. . .###*»**#«« 
c...#auto bay generation 
c. . .##»#«#«##» 

writeC 12, ' C " 
writeC 12, 1 C " 
writeC 12, * C ’ ’ 
writeC12, 1 C ' 1 
writeC12, 'C f 1 
writeC 12, 1 C " 


let 8nm-3 #mesh number counter 1 •)') 
let 8dz = 8zC 4) iaxial position")') 
let 8dy=8y C 4) itheta position")') 
if 8nbz~l ,8,8,1")') 
do ; 1 0 8i = l ,8nbz-l , 1 ' 1 ) * ) 
ditto mesh=lt3 1 1 ) ' ) 


A-237 



writeC 12 , 

•c 

« V 

trans 8dz 3 1 1 ) 9 ) 

writeC 12, 

*C 

f 1 

merge 1 1 ) 1 ) 

writeC 12 , 

f C 

t r 

let 8dz=8dz+8zC 4 ) 1 f ) 1 ) 

writeC 1 2 , 

’C 

9 t 

let 8nm=8nm+l f 1 ) 1 ) 

writeC 12 , 

'C 

« 9 

r\ 

a 

o 

c 

o 

fH 

writeC 1 2 , 

'C 

« « 

continue 1 1 ) 1 ) 

writeC 12 , 

•c 

1 f 

if 8nby-l/10,10,l ,f ) f ) 

write C 12 , 

•c 

1 « 

do ; 1 1 8i= 1 , 8nby- 1 , 1 1 1 ) 1 ) 

write C 12 , 

»C 

« 1 

let 8nd= 1 tditto mesh number counter ,, ) , ) 

writeC 12 , 

f C 

1 9 

ditto mesh=8nd 1 1 ) 1 ) 

write C 12 , 

•c 

9- 1 

rotate 8dy 3 1 1 ) f ) 

write C 12 , 

*c 

« 9 

merge 1 1 ) 1 ) 

writeC 12 , 

*c 

• « 

let 8nd=8nd+l 1 1 ) 1 ) 

writeC 12 , 

f C 

« « 

if 8nd-8nm , -4 , -4 , 1 1 1 ) 1 ) 

writeC 1 2 , 

*c 

1 f 

let 8dy=8dy+8y C 4 ) 1 1 ) • ) 

writeC 12 , 

f c 

t « 

; 1 1 nop")») 

writeC 12 , 

•c 

1 t 

continue 1 ' ) 1 ) 

writeC 12 , 

•c 

1 t 

let 8brl = 0 . ")') 

writeC 12 , 

•c 

9 » 

8br 2=8r+0 . 01 r 1 ) ' ) 

writeC 12 , 

•c 

• 9 

8blyl=- 0 . 1 • • ) 1 ) 

writeC 12 , 

'C 

• 9 

8bly2=0.1+8yCl) ,, )») 

writeC 1 2 , 

•c 

1 9 

8bryl=8dy-8y C 1 ) 1 1 ) 1 ) 

writeC 12 , 

•c 

» * 

8bryl=8bryl-0 . 1 1 ' ) ' ) 

writeC 12 , 

•c 

• » 

8bry2=8dy+0 . 1 ' 1 ) 1 ) 

writeC 12 , 

•c 

• 9 

8bdzl=-0 . 1 1 1 ) ' ) 

writeC 12 , 

•c 

V V 

8bdz2=0 . l+8zC 1 ) 1 1 ) 1 ) 

writeC 1 2 , 

’C 

9 1 

8buzl =8dz-8zC 1 ) 1 1 ) ' ) 

writeC 12 , 

■C 

• • 

8buzl = 8buzl - 0 . 1 1 * ) * ) 

writeC 12 , 

■C 

9 f 

8buz2=8dz+0 . 1 1 f ) f ) 

writeC 1 2 , 

’C 


mset 1 insert name=left iedge 4 f, ) f ) 


writeC 12 
writeC 1 2 , 
writeC 12 , 
writeC 12 , 
write ( 12 , 
write ( 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC 12 , 
writeC_12 , 
writeC 12/ 


mset 1 insert name=stif 1 9 ) * ) 
mset 1 mask volu > ,l ) f ) 

8brl,8br2 8blyl,8bly2 Sbdzl,8buz2 l ,, ) i ) 
mset 2 insert name-down iedge 1 1 * ) * ) 
mset 2 mask volu > ,, ) , ) 

8br 1 / 8br2 8blyl,8bry2 8bdzl,8bdz2 l f, ) f ) 
mset 3 insert name=right iedge 2 ,, ) f ) 
mset 3 mask volu > ,f ) , > 

8br 1 , 8br2 8bryl,8bry2 8bdzl,8buz2 1")') 
mset 4 insert name-up iedge 3 * * ) f 3 
mset 4 mask volu > ,, ) f ) 

8br 1 / 8br2 8blyl,8bry2 8buzl/8buz2 l 11 ) 1 ) 
mset 5 insert name=stif istif fener * f ) f ) 
• mset 6 insert matl=8mwp ipanel ,, ) , > 


c...i b c conditions setup 
c...i nbc=l infinite panle. 
c...i nbc=2 sides clamped. 
c...i nbc=3 ends clamped, 
c. . . iiiiiiii 

writeC 12 / 1 C 1 1 nset 1 
writeC 12 /• C • * nset 1 


insert 

insert 


mset=6 f * ) * ) 
mset=5 ' * ) * ) 


N = 1 

writeC 1 2 / * C 1 1 if Snbc-2 1 , ; ca2 / ; ca3 1 • ) 1 ) 
cicase one, part of a larger panel 

writeC12, f C ,f bcsys -4120. l.e+9 nset=l rf ) 1 ) 
writeC 12 , 1 C 1 f bcsys -5 13 0. l.e+9 nset^l 1 *)*) 
writeC 12 , 1 C 1 f bcsys -4 12 8dy l.e+9 nset=l f, ) f ) 
writeC 12 , 1 C 1 * bcsys -5 13 8dz l.e+9 nset=l ,, ) , > 
writeC 12 , 1 C 1 ' goto jeon 11 )*) 
cicase two, sides are clamped 
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wri te( 1 2 , f ( 1 1 ;ca2 bcsys -4120. l.e+9 nset=l ,, ) f ) 
writeC 1 2 , f C 1 1 bcsys -5120. l.e+9 nsct^") 1 ) 

wri te( 1 2 , 1 ( 1 ' bcsys -6 12 0. l.e+9 nset=l ,, ) f ) 

wri te( 12 , ' ( 1 f bcsys -112 0. l.e+9 nset=l ,l ) t ) 

write(12, 1 ( 1 f bcsys -3 12 0. l.e + 9 nset = l")*) 

writeC 1 2 , * C 1 1 bcsys -4 1 2 8dy 1.3+9 nset=l ,f )') 

wri te( 12 , 1 C ' 1 bcsys -5 1 2 fidy 1.3+9 nset=l ,, )») 

writeC 12 , 1 ( ' ' bcsys -6 12 &dy 1.3+9 nset=l ,, ) , ) 

wri te( 12 , ' C 1 * bcsys -112 &dy 1.3+9 nset=l ,f )') 

writeC12, f C 1 f bcsys *3 12 &dy l.e+9 nset = l ,f ) f ) 

wri te( 12 , 1 C 1 1 goto ;con M )M 

cttcase three, ends are clamped 

wri te( 1 2 , 1 C ' 1 ;ca3 bcsys -4130. l.e+9 nset=l ,f )*) 
writeC 12 , ' C • 1 bcsys -5 13 0. l.e+9 nset=l ,, ) f ) 

writeC 12 # * ( 1 1 bcsys -6130. l.e+9 nset=l ,, ) , ) 

writeC 12 C 1 1 bcsys -2130. l.e+9 nset=l ,f ) f ) 

writeC 12 , 1 C 1 ' bcsys -3130. l.e+9 nset=l ,f )*) 

wri te( 12 , 1 ( 1 ' bcsys -413 &dz l.e+9 nset=l fl ) f ) 

wri te( 12 , 9 ( 1 1 bcsys -513 &dz l.e+9 nset=l f, ) r ) 

writeC 12 , * ( * 1 bcsys -6 13 &dz l.e+9 nset=l ,, ) f ) 

writeC 12 , 1 C 1 f bcsys -213 &dz l.e+9 nset=l ,f )') 

writeC 12 , 1 C * r bcsys -3 13 &dz l.e + 9 nset=l f, ) f ) 

wri teC 12 , 1 C 1 1 ;con continue ' 1 ) 1 ) 
ctttttttttttttttttttttttttttttt 
cttConode scheme 
ctttttttttttttttttttttttttttttt 

wri te C 12 , 1 C ' 1 nset 13 insert mset S* 1 )*) 
writeC 1 2 , f C * 1 nset 14 insert mset 4 ,, ) , > 
writeC 12 , 1 C 1 1 nset 99 insert name=BTL f r ) * ) 
writeC 12 , 1 C 1 1 nset 98 insert name = BTR 1 * ) f ) 
writeC 12 , 1 C f 1 nset 97 insert name = T0L 1 1 ) 1 ) 
writeC 12 , 1 C f ' nset 96 insert name = T0R 1 ■ ) 1 ) 
writeC 12 , 1 C ' 1 nset 99 list ,, ) f ) 
writeC 12 , ’ C ' 1 nset 98 list 1 ')') 
writeC 12 , ’ C f 1 nset 97 list'*)*) 
writeC 12 , 1 C * 1 nset 96 list 1 *)') 
writeC 12 , 1 C 1 1 nset 98 mask nset 13 • 1 ) * ) 
writeC 12 , 1 C 9 1 nset 97 mask nset IS 1 ')’) 

writeC 12 , 1 C 1 1 nset 97 mask volu -999 . ,999 . , -999 . ,999 . ,&buzl ,&buz2 
*")') 

writeC 1 2 C * * nset 96 mask nset 14 ,, ) f ) 
writeC 1 2 , 1 C 1 ' nset 98 list f, ) f ) 
writeC12 , ' C f f nset 97 list 11 )') 
writeC 12 , 1 C 1 1 nset 96 list* 1 ) 1 ) 
cttbottom left corner node 

writeC 12 , 1 C 1 1 nlist 99 insert nset 99 ,, ) , ) 
cttbottom right corner node 

writeC 12 , ' C 1 1 nlist 98 insert nset 98 ,, ) t ) 
ctttop right corner node 

writeC 1 2 , 1 C 1 f nlist 97 insert nset 97 ,, ) , ) 
ctttop left corner node 

writeC 1 2 , 1 C 1 r nlist 96 insert nset 96 ,f ) f ) 
writeC 12 ,! C 1 1 set echo on' 1 ) *) 
write C 12 , 1 C 1 1 dofsup 1 nset = 99 ,, ) , ) 
writeC 1 2 , 1 C 1 1 dofsup 0 nset=98 ,f ) ? ) 
writeC 12 , 1 C 1 1 dofsup 1 nset=97 ,, ) , ) 
writeC 12, 1 ( 1 1 dofsup 2 nset=97 ,f )') 
ctttttttttttttttttttttttt 

cttall nodes on bottom edge 

writeC 12 , 1 C 1 1 nset 95 insert volu -999 . , 999 . , -999 . , 999 . , 0 . , 0 . 1 1 ) f ) 
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writeC 12 , 

, ( . t 

nset 95 list**)*) 


nodes on 

top 

edge 


writeC 12 , 

t ( i • 

nset 94 insert volu -999., 

999. ,-999. 

*••)•) 

writeC 12 , 

. ( . « 

nset 94 list * * ) 1 ) 


nodes on 

left 

edge 


writeC 12 , 

*C * * 

nset 93 insert volu -999., 

999. ,0. ,0. 

nodes on 

fight edge 


writeC 12, 

*C * * 

nset 92 insert volu 0.,999 

. , &dy ,8dy , 

*01 1 * ) 1 ) 

writeC 1 2 , 


nset 93 dele nset 95 ,, ) , ) 


writeC 1 2 , 

t ( * . 

nset 93 dele nset 94 ,, ) , ) 


writeC 1 2 , 

»C 1 • 

nset 92 dele nset 95**)*) 


writeC 1 2 , 

*C * . 

nset 92 dele nset 94**)*) 


writeC 12 , 

t ( » . 

nset 93 list**)*) 


writeC 12 , 

»C . • 

nset 92 list**)*) 


writeC 12 , 

• C • 1 

nlist 95 insert nset 95* f ) 

*) 

writeC 12 , 

•c * * 

nlist 94 insert nset 94* *) 

* ) 

writeC 12 , 

•c 1 * 

nlist 93 insert nset 93**) 

*) 

writeC 12 , 

*C • • 

nlist 92 insert nset 92**) 

*) 

writeC 12 , 

'C * 1 

show var dy * ’ ) * ) 


writeC 1 2 , 

*C 1 1 

call cono 95 99 98**)*) 


writeC 12, 

*c * * 

call cono 94 96 97**)*) 


writeC 12 , 

•c * * 

call cono 93 99 96**)*) 


writeC 12 , 

*C • 1 

call cono 92 98 97**)*) 


writeC 12 , 

*C * t 
<C” 

FINISH**)*) 


writeC 12 , 

STOP* *)*) 


writeC 12 

, *c * 

*!**)*) 



closeC unit=12) 

return 

end 


cl 

c 

cl 

c 

c 

c 

c 

c 

c 

c 

c 


FBSET 

SUBROUTINE fbset 


fbset : DIAL band , setup generation. 


c 

c 


openC unit= 12 
wri teC 12 , * ( 
writeC 12 , * ( 
writeC 12 , * C 
writeC 12 , * ( r 
writeC 12 , * C ' 
wri te( 12 , * C * 
writeC 12 , * C * 
writeC 12 , * ( * 
writeC 12 , * ( * 
writeC 12, * C 
writeC 12 , * C 
writeC 12, 1 C 1 
writeC 1 2 , f C 1 
writeC 1 2 , * C f 
writeC12,*C' 
writeC 12, 1 C 1 
writeC 12 , 1 C 
closeC unit=12) 
return 


status* 1 unknown* , f ile= 1 fbset . com 1 ) 
•#•*)*) 

1 source /usr/local/dial/init . com* 1 ) 1 ) 
1 band « 

$BAND 1 •)*) 

open 6 "band . out” **)' ) 

START -!••)*) 

REGPS' *)*) 

BAND 1 1 ) ' ) 

STOP**)*) 

• setup << \ ! * * ) ' ) 

$SETUP * ' ) * ) 

open 6 "setup . out” **)* ) 

START -1**)*) 

SETUP* ')*) 

STOP**)*) 

'!* ')*) 
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end 


c 

cFMATL 

SUBROUTINE fmatl 

common /matl/ NMAT , El ( 3 , 6 , 5) , VI C 3 , 6 , 5) ,G1 ( 3 , 6 , 5 ) , 

*E(6) ,V(6) ,MM(6) 

common /wall/ MWP , MWS , NWP( 1 6 ) , NWS( 1 6 ) , PT ( 16 ) , PAC 16 ) , ST( 1 6 ) , SAC 1 6 ) 

c ... 
c ... 

c . fmatl : DIAL matl generation, 
c ... 
c ... 
c ... 

c NMAT -- Number of Material, 

c E Elastic Modulus, 

c V Poissons' Ratio, 

c G Shear Modulus. 

c MWP -- Number of Plies in Panel Wall, 

c MWS -- Number of Plies in Stiffener Wall, 

c NWP -- Material Composition of Panel Wall, 

c NWS -- Material Composition of Stiffener Wall, 

c PT -- Panel Ply Thickness, 

c PA -- Panel Ply Angle, 

c ST -- Stiffener Ply Thickness, 

c SA -- Stiffener Ply Angle, 

c MM -- Iso vs. Ortho material indicator, 

c ... 

open( unit = 12 , status^ ' unknown * , f ile= ' f mat . com 1 ) 
c writeC 12 , * C ' ' § * ' ) ' ) 

c wri te( 12 , * ( * ' source /usr/local/dial/init . com* * ) f ) 

c write(12/( M matl « X!")') 

wri te( 12 , 1 ( 1 ' $MATl * ' ) ' ) 
writeC 12 , f ( 1 1 open 6 "matl . out" • 1 ) 1 ) 
wri te( 12 , f ( 1 ' START -l")') 
wri te( 12 , f ( 1 f set syntax on’ ')') 

100 formate 9 MATISO 1 ,i2,2x,el2. 5,2x,f7 .5) 

101 formate MATORT f , i2 , 2x , el 2 . 5 , 2x , el 2 . 5 , 2x , el 2 . 5 ,* , > ■ ) 

102 format(lx,el2.5,2x,el2.5,2x,el2.5, f , > 1 ) 

103 formatClx,el2.5,2x,el2.5,2x,el2.5) 
do 10 i=l , NMAT 

if (MMCi) .EQ. 1) then 

write(12,100)i,E(i) ,V(i) 
elseif (MMCi) .EQ. 2) then 
writeC 12 , 1 01 ) i , 

*El(l,i,l) , El(2,i,l),El(3,i,l) 

writeC 1 2 , 1 02) VI ( 1 ,i , 1 ) , VI ( 2 , i , 1 ) , VI ( 3 , i , 1 ) 
writeCl 2 , 1 03 )G1 ( 1 ,i , 1 ) , G1 ( 2 , i , 1 ) ,G1 ( 3 , i , 1 ) 

endif 

10 continue 

NMAT = NMAT +1 

104 formate ' WALLAM' , 2x , i2 , 2x , i2 , 1 , > 1 ) 

105 format(lx,f 16 . 5, 1 ,>* ) 

106 formate lx , f 16 . 3 ) 

107 formate lx>i2e ,>' ) 
c 

c . . 

c panel layup 
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c 


write(12,10A)NMAT,MWP 
do 20 i=l , MWP 

writeC 12 , 1 07 )NWP( i ) 

20 continue 

do 21 i = 1 , MWP 

write(12,105)PT(i) 

21 continue 

do 22 i = 1 , MWP- 1 

write(12,105)PA(i) 

22 continue ! 

write(12,106) PA ( MWP ) 

c 

c . . 

c whole stiffener layup 

c . . 
c 

NMAT =NMAT+1 

writeC 12, 10A)NMAT, MWS 

do 30 i=l , MWS 

writeC 12 , 1 07 )NWSC i ) 

30 continue 4 
do 31 i=l,MWS 

write(12,105)ST(i) 

31 continue 

do 32 i=l,MWS-l 

write(12,105)SA(i) 

32 continue 1 
writeC 12 , 106 ) SAC MWS) 

f 

c 

c . . 

c half stiffener layup 

c . . 
c 

TEMP=REAL(MWS) 

TEMPl=TEMP/2 . 

TEMP2 = TEMP1- INK TEMPI) 

NEMP = I NT C TEMPI ) 

IF ( MODC TEMP , 2 . ) . GT . 0 . )THEN 
NEMP=NEMP+1 

wr ite( 1 2 , 1 0A ) NMAT+1 , NEMP 
do A0 i = l , NEMP 

.writeC 12, 107)NWS(i) 

A0 continue 

do A1 i= 1, NEMP- 1 

writeC 12, 105) ST (i) 

A1 continue 

wr i te ( ] 2 , 1 05 ) ST ( NEMP ) /2 . 
do A2 i=l , NEMP- 1 

write (12,105) SA(i) 

A2 continue 

writeC 12,106) SAC NEMP) 
c 
c 

wr i te ( 1 2 , 1 0 A ) NMAT+2 , NEMP 
do 50 i=NEMP ,MWS 

writeC 12 , 107)NWS( i) 

50 continue 

writeC 12,1 05 )ST( NEMP) /2. 
do 51 i=NEMP+l ,MWS 
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write(12,105)ST(i) 

51 continue 

do 52 i=NEMP,MWS-l 
write(12,105)SACi) 

52 continue 
write(12,106)SA(MWS) 

else 

writeC 12, 1 04)NMAT+1 , NEMP 
do 60 i = 1 , NEMP 

write (12, 107) NWSC i ) 

60 continue 

do 61 i=l , NEMP 

write(12,105)ST(i) 

61 continue 

do 62 i=l , NEMP- 1 

write(12,105)SA(i) 

62 continue 

write (12, 106) SAC NEMP ) 
c 
c 

C ; BEGIN SECT TEMP REMOVED (JEI 3/6/91) 

C 

CC write ( 12 , 1 04 ) NMAT+2 , NEMP 

CC do 70 i=NEMP , MWS 

CC write(12,107)NWS(i) 

CC70 continue 

CC do 71 i=NEMP , MWS 

CC write(12,105)ST(i) 

CC71 continue 

CC do 72 i=NEMP ,MWS- 1 

CC write(12,105)SA(i) 

CC72 continue 

CC wr i te( 12 , 1 06 ) SAC MWS ) 

CC 

C END SECT TEMP. REMOVED (JEI 3/6/91 

C 

C . BEGIN SECT TEMP ADDED (JEI 3/6/91) 

C 

wr i te( 12,104) NMAT+2 , NEMP 
do 70 i=NEMP,MWS 

wri4e( 12 , 107 )NWS( i ) 

70 continue 

do 71 i=NEMP+l , MWS 
write(12,105)ST(i) 

71 continue 

do 72 , i = NEMP+l , MWS 
write(12,105)SA(i) 

72 continue 

C write(12,106)SA(MWS) 

C 

C END SECT TEMP. ADDED (JEI 3/6/91) 

endif 

write( 12 , 1 ( 1 1 MATL * 1 ) 1 ) 
writeC 12 , 1 ( * 1 STOP")*) 
c writeC 12 , 1 ( 1 * ! ■ ■ ) r ) 

closeC unit=12 ) 
return 
end 

c FLOAD 
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SUBROUTINE fload 

common /geom/ NBY,NBZ,NWAL ,D, ALPHA, R,T1 ,T2,B, 

* NBC,NMESH 

common /load/ XL ( A ) , SL ( A ) , PSURF , X , L , TEMP 

open ( uni t= 12 , status= •unknown 1 , f ile= 'fload.com' ) 

100 formatC 1 pline * , f 1 0 . 3 , lx , i2 , lx , i2 , lx , i2 , * mset=',i2) 

101 formatC* psurf • ,f 10 . 3 , lx, i2, lx , i2 , * mset=',i2) 

c wri teC 12 , *e * *#* * ) * ) 

c wri tee 12 , * e 1 * source /usr/local/dial/init . com 1 * ) 1 ) 

c write( 12, 1 ( 1 • load « \! f, >*) 

wri teC 12 , * ( * ' $load")*) 
write(12, *(»* open 6 "load . out" ")• ) 
wri tee 12, * ( * ' start**)*) 
writeC 12 , * C * * lease 1* *)*) 
wri teC 12 , ' C * '# SHEAR LOADS*')*) 

sxi=sl e i ) 

SX2=SLC1)*-1 . 
wri tee 12,100)SX1 ,3, 0,4,1 
writeC 12, 100)SX2,3, 0 ,1,2 
writeC 12,1 00 )SX1 ,3, 0,2, 3 
writeC 12,100) SX2 , 3 , 0 , 3 , 4 
writeC 12 , * C * ' # END LOADS**)*) 
writeC12,100)XLC2) ,2,0,1 ,2 
write(12,100)XL(A),2,0,3,A 
writeC 1 2 , * C ' ' # PRESSURE LOAD**)’) 
write (12, 101 ) PSURF , 1 , - 1 , 6 

writeC 12, *C ’ '# REACTIONARY LOAD TO COUNTER THE PRESSURE LOAD'*)*) 
psl=PSURF*R 

writeC 1 2 , 1 00 )psl , 2 , 0 , A , 1 
writeC 12, 1 00 )psl, 2, 0,2, 3 
writeC 1 2 ,*(* ' load'*)*) 
writeC 12 , * C * * stop*')*) 
c writeC 12, *(**!■*)') 

return 
end 

c###### #«***»#»###«»§#### 

c FS0LVE 

########### 

SUBROUTINE fsolve 

common /geom/ NBY,NBZ,NWAL ,D, ALPHA, R,T1 ,T2,B, 

* NBC,NMESH 

common /load/ XLC A) , SLC A) , PSURF ,X,S, TEMP 
open (unif =12 , status= 'unknown * ,file= 'fsolve . com' ) 
c writeC 12, '("#'')*) 

c writeC 12, * C ' * source /usr/local/dial/init . com* ')' ) 

c wri teC 12 , ' C * ' solve << \ ! * • > ' ) 

write (12, *C* '$ SOLVE' ')*) 
writeC 12 , ' C f ' open 6 "solve . out" ")' ) 
writeC 12 , * ( ' * start")*) 

100 format C 9 Joads ',i2,fl0.3) 
if CNHESH.eq.2) then 
write(12, 100)1,1. 
writeC 12 , ' ( " SAVE,D*')') 
writeC 12 , ' ( * * SAVE,S")*) 
write C 12 , * ( ' * ASSIGN IMPR=1")') 
writeC 12*' C 1 * EIGEN 2'*)*) 

< writeC 12, '(* * solve*')*) 
writeC 12, '(' * stop*')') 
writeC 12 , ' C ' * ! ' * ) * ) 


c 
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writeC 1 2 , ' C " cluster << \!")') 
wri teC 1 2 , 1 C ' 1 $c luster * * ) 1 ) 
wri te( 12 , ' C " start")') 
wri te( 12 , ' C " shift 1")') 
writeC 12 , 1 ( * ' save' ' ) 1 ) 
writeC 12 , ' ( * ' matrix : file , ki ki'')') 
writeC 12 , ' C " clust 2")’) 
writeC 12 , f C 1 ' stop")') 
writeC 12 , ' C " ! " ) ' ) 

else 

writeC 12,100)1,1. 
writeC 12 , ' C " SAVE,D")') 
write C 12 , ' C " SAVE,S")') 
writeC 12 , ' C " solve")') 
writeC 12 , * C " stop")') 
writeC 12, 'C"!")') 
endif 

close ( uni t=12 ) 

return 

end 

subroutine nreal C ntk , ra) 

character arec*80, a*127, tknsC10)*10 

dimension lentk C 1 0 ), raC 1 0 ) 

r 

100 ierr=0 

call getlinC 5, 0, arec, a, irdata, *910, *998 ) 
call getknsC a, irdata, tkns, lentk, ntk, *999 ) 


do 200 i=l,ntk 
r = raC i ) 

call rintrpC tknsCi), lentkCi), r, *991 ) 
writeC6 , 1 C 12x, "real = ", lpelO.3)') r 
raCi) = r 
go to 200 

991 ierr=ierr+l 

writeC 6 ,' C 19x, "Not a real ")') 

200 continue 

if Cierr . ge . 1) go to 100 
return 

998 continue 

writeC6,'C" ERROR return from getlin")') 
stop 

999 continue 

wri teC 6 , ' C " ERROR return from getkns")') 
stop 

910 continue 

writeC6,'C" End-of-File return from "getlin"" )* > 

return 

end 

subroutine nintgCntk ,ia) 

character a*127, arec*80, tknsC10)*10 

dimension lentkC 10) , iaCIO) 


100 ierr=0 

call getlinC 5, 0, arec, a, irdata, *910, *998 ) 
call getknsC a, irdata, tkns, lentk, ntk, *999 ) 


c 


do 200 i=l,ntk 
intgr = iaCi) 
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call iintrpC tkns(i), lentk(i), intgr, *992 ) 
c writeC 6 , f ( 9x , ''integer = ", ilO)') intgr 

ia(i) = intgr 

c-debug write(6,'(" In nintg: ia( ' ' , i5, ") = ", i5)') i, intgr 

go to 200 

992 ierr=ierr+l 

write(6,'( 19x, ''Not an integer ")') 

200 continue 

if ( ierr . ge . 1) go to 100 

return 

c 

998 continue 

writeC6,'(" ERROR return from getlin")') 
stop 

999 continue 

write(6,'C'' ERROR return from getkns")*) 
stop f 

910 continue 

write(6,'(" End-of-File return from ”getlin M ' * ) * ) 

return 

end 

subroutine stitle(sline) 
c 

character arec*80, a*127, tkns(l)*60, sline*(*) 
dimension lentk(l) 

c 

1 ierr=0 

c^ll get linC 5, 0, arec, a, irdata, *910, *998 ) 
ntk = 1 

call getknsC a, irdata, tkns, lentk, ntk, *999 ) 
if (lentk(l) .eq. 0) return 
sline=tkns( 1 ) ( 1 : lentk ( 1 ) ) 
return 
c 

998 continue 

c ... write(6,'(” ERROR return from getlin” )•) 

write(6, ' (lOx, ' * M! Illegal Input, Try Again I!!”)’) 
go to 1 

999 continue 

c write(6, f (" ERROR return from getkns")') 

writeC 6 ,'( lOx ,' ' ! ! ! Illegal Input, Try Again !!!")') 
go to 1 
910 contiaue 

writeC 6 , ' ( " End-of-File return from "getlin"") 1 ) 

return 

end 

subroutine getlinC nunit, igblnk, arec, aline, irdata, *, * ) 
c 

c 

c# ARGUMENTS: 
c 

The Fortran logical unit number of the file from which 
the input recordCs) will be read. 

A integer flag that must be either zero or one. 

It indicates the interpretation of input records that 
are blank, or contain only a comment, and that do not 
follow a "continued" record (in which case they always 
indicate end of input for the continuation set). 

1 ==> ignore (i.e., read past) them 


c# in nunit . . . 

c# 

c f 

c# in igblnk . . 

c# 

c# 

c# 

eft 

eft 
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c # 0 ==> consider them to be a completed data line with 

eft only "null" tokens, 

c 

eft - arec .... A work string supplied to this routine. Each single 

eft input record (i.e., up to the carriage return) is read 

c* into this string, 

c 

c# out aline ... The returned string containing the "input line". This 

c# • string will be the data string contained within a single 

c# uncontinued input record, or it will be the concatenation 

c# of the data strings from continued records. The 

c# accumulated lengths of the data strings (and any implied 

eft delimiters) in a "continuation set" is limited by the 

eft length of this string, 

c 

eft out irdata .. The returned data line, aline, extends to this character 

eft position in string "aline", 

c 

eft - * First al ternare RETURN in the event that End-of-File is 

c# encountered on attempt to read an uncontinued record 

eft from unit NUNIT. 

c 

eft - X Second alternare RETURN in the event of an error on 

eft reading an input line. This could be End-of-File on 

c # trying to read a continued line, or lack of space in 

eft aline for all the data strings, 

c 

c 1 


eft PURPOSE: 
c 

eft Reads record(s) from unit NUNIT and returns the "input line", 
eft Define the following terms: 
c 

eft input record 

eft All input up to a carriage return, 

c 

eft data string 

eft The string beginning at the first non~blank on an input record and 

eft extending to the final non-blank before any continuation character 

c# or comment character (which ever is first), 

c 

eft continuation directive 

eft A .continuation character that is the final non-blank before any, 

eft comment (if present), 

c 

c# continuation set 

eft A set f of consecutive records, all but the last of which have 

eft continuation directives. The "data strings" from these lines 

eft are what make up the final "data line", 

c 

eft data line 

eft The concatenation of the data strings from all records in a 

eft continuation set. (Note: a blank space is inserted between data 

eft strings unless this blank would be adjacent to a comma in the 

eft resulting string, 

c 

c 

c 

character alineX(X), arecX(X), contxl, comnt*l , comma*l 
save cont, comnti comma 
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data cont'/ f > */, comnt /'#'/, comma 


c 

c - 

c# 

c# 

c - 
c 


Read past blank or comment-only lines to 
a "data" record or End-of-File. 


c 

c# 


c« 

c# 

ci 

c# 


c# 

c# 


c# 


c 

c# 

c 

c# 

c# 

c 

c - 

c# 

c# 

c - 
c 


irdata = 0 
100 continue 

read( nunit, '(a)*, end=910 ) arec 

-- Locate the "data string" on this record and look for continuation, 
call getds( arec, locds, lends, icont ) 

if (lends .eq. 0) then 
aline = 1 1 

-- No data string on the record. What we do depends on whether we 
are ignoring blank (or comment-only) lines: 
if (igblnk .eq. 1) then 

-- ff no continuation directive is present, ignore the record 
and go on to read the next record, 
if (icont .eq. 0) go to 100 
else 

-- If no continuation directive is present, take the record 
as a line of "null" data, 
if (icont .eq. 0) return 
endif 
else 

if (icont .eq. 0) then 

-- Data string present and no continuation indicated, 
aline = arec( locds : locds+lends- 1 ) 
irdata = lends 
return 
endif 
endif 

-- The record just read is to be continued on the next record, 
more = 1 

/ 

-- We will not need to inset a space, as a delimiter, at the current 
-- end of "aline" before appending the data string to "aline", 
needlm = 0 


We have just read in a record that is one of a set of 
"continued" records used to input a single "data line". 


maxlen = len( aline ) 

200 continue 

if (lends .ne. 0) then 

c# -- Append the data string to the data line we are accumulating. 

if ( needlm .eq. 1 .and. arec( locds: locds) .ne. comma ) then 
if ( irdata +1 .gt. maxlen ) return 2 
irdata = irdata + 1 
aline(irdata : irdata) * 1 v 
endif , 


if ( irdata + lends .gt. maxlen ) return 2 

alineC irdata+1 irdata+lends) = arecClocds : locds+lends - 1 ) 
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irdata = irdata + lends 
endif 
c 

if (more .eq. 0) return 
c 

if (lends .ne. 0) then 

if ( alineC irdata : irdata) . eq . comma ) then 
needlm = 0 
else 

needlm = 1 
endif 
endif 
c 

c # -- Read the next record from disk. 

read( nunit, '(a)’, end=990 ) arec 
c 

call getdsC arec# locds, lends, icont ) 
c 

if (icont .eq. 0) more = 0 
go to 200 
c 

c RETURN on End-of-File 

910 continue 
return 1 
c 

c RETURN on Error 

990 continue 
return 2 
c 

end 

subroutine getds( arec, locds, lends, icont ) 


c 

c - 

eft 

c 

c# 

ci 

eft 

eft 

c 

eft 

eft 

c 

eft 

eft 

c 

eft 

eft 

eft 

eft 

eft 

c 

c * 

eft 

c 

eft 

eft 

eft 

c 

eft 


ARGUMENTS: 

in arec . 


out locds 


out lends 


out icont 


The given character string containing a single input 
record, i.e., input up to a carriage return. This may 
contain a continuation dierctive following the "data 
string" and also a trailing comment. 

The location in the string "arec" where the "data string" 
begins. This is undefined if no data string is present. 

The string length of the "data string" in string "arec". 
This is set to zero if nno data string is present. 

=0 , if the string "arec" does not have a continuation 
directive. 

=1 , if the string "arec" does contain a continuation 
directive indicating that the user's "input line" 
will be continued on the next record. 


PURPOSE: 

Locates the data string in the given string, -arec", containing an input 
record. If a continuation directive is present in the given string, this is 
is noted by setting the returned flag, "icont", to 1. 


The "data string" is 


the section of the record remaining after 
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conceptually : 

1) Removing trailing comments, i.e. finding the first occurance of 

a "comment character" in the given string and removing it and all 
characters that follow it. 

2) If (after the previous step) the last character in the string is 
a "continuation character", it is removed. 

3) Removing leading and trailing blanks from the string that remains 
after the previous two steps. 

While the above helps to envision the method for determining the "data 
string", in actuality we locate the beginning location of the data string 
in the given string and dtermine the character length of the data string. 
The location and length are returned to the calling routines. 


character arec*(X), cont*l , comnt*l 
save cont, comnt 
data cont /•>■/, comnt /'#•/ 
c 

c 

c 

lends = 0 
icont = 0 
c 

locds = ileft( arec ) 
if (locds . eq . 0) return 
c ' 

lcom = indexC arec, comnt ) 
if (lcom .eq. locds) return 
c 

if (lcom .eq. 0) then 
lr = iright ( arec ) 
else 

lr = iright ( arec(l: lcom-1) ) 
endif 

if (arec(lr:lr) . eq . cont) then 
icont = 1 

if (lr .eq. locds) return 

lr = iright ( arec(l: lr-1) ) 
endif 

lends = lr - locds + 1 
return 


c# 

c 

c# 

c# 

c# 

c 

c# 

c# 

c 

c# 

c# 

c 

c# 

c# 

c# 

c* 

c 

c - 


c 


c 

c 

c# 

c 

c# 

c* 

c« 

c 

c# 


end 

subroutine getkns( aline, irdata, tkns, lentk, ntk, * ) 


ARGUMENTS: 


an 


an 


The given character string containing the input line. 
If this string is blank (input IRDATA = 0) then all 
NTK returned tokens will be blank with zero length. 


irdata . . The input line in string 


"aline" extends to this 
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character position. 


c# 

c 

ctt 

c# 

c# 

c# 

c 

ctt 

ctt 

c 

c# 

c 

ctt 

c# 

ctt 

c# 

ctt 

ctt 

ctt 

c 

c 

ctt 

c 

ctt 

ctt 

c 

ctt 

ctt 

c 

ctt 

ctt 

ctt 

ctt 

ctt 

c 

ctt 

ctt 

ctt 

ctt 

ctt 

ctt 

c 

ctt 

ctt 

ctt 

ctt 

ctt 

c 

ctt 

ctt 

c 

ctt 

ctt 

c 

ctt 

c 

c 

c 

c 


out tkns .... The character array of tokens. The character lengths 
of these array elements limit the lengths of input 
tokens; tokens are correctly parsed but then truncated 
to this length. 

out lentk ... An integer array with the string lengths of the tokens 
(after any necessary truncation). 

in ntk The number of tokens to be parsed from the line. 


* Alternate RETURN in the event that a string token 

initiated by an apostrophy had no trailing apostrophy, or 
the next character after the trailing apostrophy was not 
a delimiter (or end-of - line ) . 

NOTE: The arguments that had been interpreted up to the 
point that the error occured are returned; the 
rest will be blank. 


PURPOSE: 

Parses an ’’input line” contained in a given string to find the first NTK 
tokens on the line. 

Tokens are delimited by beginning-of - line , commas, spaces, tabs, or 
end-of-line. Tabs are equivalent to (single) spaces. 

A single asterisk (*) input token is recognized as a "null" token, for 
which the retuned string is blank and returned length is zero. Some users 
may find entry of the null token preferable to that of a comma with no 
proceeding token, or two adjacent apostrophies (see the next 
paragraph) . 

If a token is enclosed within apostrophies then it may contain commas, 
spaces, or tabs. The returned length of such a token is the number 
number of character positions between the pair of apostrophies. 

Note that, for this length calculation, tabs are a single character. 
Contigous alphanumeric strings (no embedded delimiters) do not need to be 
enclosed within apostrophies. 

There is no provision for including apostrophies ( 1 ) or the comment 
character (the hash symbol, tt; see routine GETDS) within a token, 
i.e., they may not be "escaped”. Strings enclosed within apostrophies 
may contain asterisks; these will not be misinterpreted as 
null tokens. 

A line with only ’’null" data will minimally contain (before an optional 
comment) either a null character, a comma or two adjacent apostrophies. 

Tokens are placed, left justified, into the character array TKNS. 

The tokens may be truncated in order to fit into the given TKNS array . 

The lengths of the returned tokens are placed in the LENTK array. 


c 
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c # Arrays for the returned tokens and their correcponding 

c# character lengths. 

c 

c 

character tknsOO*(*) 
dimension lentk(*) 
c 

c 

C# Strings for the input line, the "curent" character on the 

c# line and delimiter characters (space, tab, and comma). 

c 

c 

character aline*(*), c*l, tab*l , space*l , comma*l , apos*l , null*l 
c 

save space , comma , apos , null 

data space / * f / , comma / * , 1 / , apos null /***/ 

c 

tab = char(9) 
c 

maxlen = len( tkns(l) ) 
c 

c 

c# Initialize ntk tokens to blanks. 

c 

c 

do 50 i=l,ntk 
tkns(i) = ■ 1 

lentk(i) = 0 
50 continue 
c 

if ( irdata .eq. 0 ) return 
c 

c 

c# Something is on the line (before any comment), 

c# Parse the tokens (up to NTKN of them). 

c 

c 

is = 0 
itkn = 1 
c 

200 continue 

c # -- Move along the line looking for a token or a comma (null token), 

i s = i s + 1 
c - aline(is:is) 
c 

c 

if ( c.eq.tab .or. c . eq . space ) then 
c# -- Move to next character; to continue looking for token, 

go to 200 

c 

else if ( c.eq. comma ) then 

ct -- No token found before this comma indicates null token, 

if ( itkn .eq. ntkn ) return 
itkn = itkn + 1 
c 

if ( is .eq. irdata ) return 

c# -- Move to next character; look for next token, 

go to 200 


c 


else 
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300 

c# 

c 

c 

c# 


450 


x 


c 


400 


c# 


c* 


c 

c# 


c 


c# 


c 

ct 


c# 


continue 

-- We are at the left-most character of a non-null token, 
il = is 


if ( c .eq. apos ) then 

-- We look for the trailing apostrophy for this "quoted string", 
if ( is .eq. irdata ) return 1 
continue 
is = is + 1 
c = aline(is:is) 
if ( c . eq . apos ) then 
length * is * il - 1 
if C length .gt. maxlen ) then 
length = maxlen 

lentkC itkn ) - length 

if ( length . gt . 0 ) tkns( itkn ) = alineC il+1: il+length ) 
if ( is .eq. irdata ) return 
is = is + 1 

c=aline(is:is) ^ ^ ^ ^ 

if ( .not. Cc.eq. space .or. c.eq.tab .or. c.eq. comma) ) 
return 1 

else 

if ( is . eq . irdata ) return 1 
go to 450 
endif 


else 

continue 

if ( is .eq. irdata ) then 

-- The tokdn extends to the end of the input data, 
if C alineCilris) .eq. null ) return 
tknsC itkn ) = alineCil: is) 

-- The input token length may exceed the length of the variable, 
length = is - il + 1 
if ( length .le. maxlen ) then 
lentkC itkn ) = length 
else 

lentkC itkn ) = maxlen 
endif 
return 
endif 


-- Move along the line looking for the end of the token, 
is = is + 1 
c = aline(is:is) 

if ( .not. (c.eq. space .or. c.eq.tab .or. c . eq . comma ) ) then 
if ( c .eq. apos ) return 1 

"* Move to next character; continue looking for end of token, 
go to 400 
endif 


-- The previous character was the right-most character of the token 
if ( alineCil: is-1) .ne. null ) then 
tknsC itkn ) = alineCil: is-1) 

-- The input token length may exceed the length of the variable, 
length = is - il 
if ( length .le. maxlen ) then 
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lentkC itkn ) = length 
else 

lentkC itkn ) = maxlen 
endif 
endif 

c - - ~ - " 

endif 
c 

if ( itkn .eq. ntkn ) return 

c# -- Find the next location at which we should begin looking for the 

c# -- next token, i.e., after a following comma or at the next token, 

itkn = itkn + 1 
if ( is .eq. irdata ) return 
if ( c . eq . comma ) then 

c# — Go back and look for a token following this comma, 

go to 200 
else 

c# -- Curent character was a space or a tab. 

c# -- Look for a comma, the next token, or end of line. 

500 continue 

is = is + 1 

c = aline(is:is) 

if C c . eq . comma ) then 

if C is .eq. irdata ) return 
go to 200 

else if ( c.eq. space .or. c.eq.tab ) then 
if ( is .eq. irdata ) return 
go to 500 
else 

go to 300 
endif 
endif 

c 

endif 

c 

end 

subroutine iintrpC tkn, lentk, i, * ) 
c 

c# Read a integer number, I, from a character string, TKN, of length LENTK. 
c# (Note that blanks in the strings are ignored. Leading and/or trailing 
c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
c# which is not OK; try to fix this sometime.) 
c 

character tkn*00 
c 

if ( lentk .eq. 0 ) return 
c 

readC tkn( 1 : lentk ) , l (bn,i80) f , err=990 ) i 
c 

return 

c 

c 

990 continue 
return 1 
c 

end 

subroutine rintrpC tkn, lentk, r, * ) 
c 

c# Read a real number, R, from a character string, TKN, of length LENTK. 
c# (Note that blanks in the strings are ignored. Leading and/or trailing 
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c# blanks are ignored, which is OK, but interior blanks are squeezed out, 
c# which is not OK; try to fix this sometime.) 
c 

character tkn*(*) 
c 

if ( lentk .eq. 0 ) return 
c 

read( tknC 1 : lentk ) , * ( bn , f 80 . 0 ) 1 , err=990 ) r 
c 

return 

c 

c 

990 continue 
return 1 
c 

end 

function ileftC string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 

c 

c Find the position of the leftmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 

c 

c 

c 

character^Ot) string 
character*l tab 
c 

tab = char(9) 
c 

c 

c Find the location of the first nonblank character, 
c 

Is = len( string ) 
c 

do 100 i=l , Is 

if( string(iii) . ne . 1 1 

* .and. stringCiti) . ne . tab ) then 

ileft = i 
return 
end i f 

100 continue 
c 

c 

c String was blank. Set ileft to zero (as a flag). 

ileft = 0 
c 

return 

end 

function irightC string ) 
c 

c WRITTEN by: D. T. Rickhoff 

c 

c 

c Find the position of the rightmost nonblank character 
c in a string of length Is. 

c NOTE: Tab characters, char(9), are considered equivalent to only one blank. 


c 
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c 


character^ *) string 
character*! tab 


c 


c 

tab = char(9) 
c 

c 

c Find the location of the last nonblank character, 
c 

Is = len( string ) 
c 

do 100 i=ls,l , -1 

if( string(i:i) .ne. 1 f 

* .and. string(i:i) .ne. tab ) then 

iright = i 
return 
endif 

100 continue 
c 

c 

c String was blank. Set iright to zero (as a flag). 

iright = 0 
c 

return 

end 



A3. 4.1 


FLAT STIFFENED PANEL MODULE 
POST PROCESSING DRIVER 


ft 1 


TT TT TT TT TT TT TT TT'Tr TT TT tf tf tt ffffffffftftftftftft# 


$! 

$ • DIALAMATIC 

$! 

$ ! THIS PROCEDURE IS DESIGNED TO PERFORM 

$ ! POST PROCESSING FOR MODELS GENERATED WITH 

$ ! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 

$! 

$ ! VAX VERSION VI. 2 6-28-91 

$ ! AUTHOR: WAYNE M. BROWN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$! 

$ j ###################################################ft#######ftft###### 

$ ST ART: 

$ W := WRITE SYS$OUTPUT 
$W "" 

$y " Advanced Composites Structural Concept" 

$W " and Materials Technologies" 

$W " Automated DIAL finite element analysis" 

$W " POST PROCESSING MODULE" 

$y n H 

$W " VAX VERSION 1.2" 

$y " JUNE 1991" 

$V "" 

$y "" 

$W " " 

SINQUIRE DB "What is the name of the DIAL data base file?" 

SASSIGN 'DB' FIL002 
$V 

$!ftft#ft#####ft#################ftft####ft########ft#ft#ft##ft##ft###ftft###ft####ft####ft# 
$ ! THE FOLLOWING COMMAND MAY NEED TO BE MODIFIED TO RUN 
$! THE DIAL SCOPE PROCESSOR IF THE EQUIVALENT NAME IS NOT 
$! ALREADY SETUP IN THE USER LOGIN.COM 
$ ! EXAMPLE: CHANGE TO $RUN DIAL$DIR: SCOPE 

$!ftftft######ft##ft##ft#ftft##ft##ftft###ft###ftft#ftftft#ftftftftft###########ftftftft####ft#ft###### 

SSCOPE 

START -1 

# ################ft#ftftft#ftft####ftftft##ftftft#ft######ft#ft####ft##ft#ft#ft# 

ft 

ft THIS SCOPE PROCEDURE IS FOR MODULE 1 
ft STRINGER STIFFENED FLAT PANEL 
ft 

ftftftftftftftftftftftftftft#ft##ftftftftftft#ftft###ftft#ftftft#ftftft##ft###ftftft###ft#ft###ft#ft 


SET SYNTAX ON 
LET &IF1=0 
DATA &NB B 
DATA &IYES Y 

; 1000 FORMAT' (IX, 'GIVE A SHORT NAME FOR THIS ANALYSIS') 
WRITE 6 ; 1000 

QUERY !NAME " PRECEDE MULTIPLE WORDS WITH APOSTROPHE » " 
QUERY !DEV "WHAT TYPE OF TERMINAL? (TEK, SEL, RETR, VT24) » " 
DEFINE SHCD VERS 

QUERY &NBV "COLOR OR BLACK & WHITE? (C/B) » " 

IF &NBW-&NB ; 91 , ;90, ; 91 
; 90 DSPECT SET 0 WHITE 
DSPECT SET 1 BLACK 
; 91 CONTINUE 

QUERY SrNHC "WILL YOU WANT TO PLOT HARD COPIES? (Y/N) » " 

IF &NHC-&IYES ; 30, ; 10, ; 30 

; 10 QUERY ! HCD "INPUT HARD COPY DEVICE(VERS,QMS) » " 
DEFINE SHCD !HCD 
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; 1000 FORMAT' (/IX, 'WHAT OUTPUT OPTION WOULD YOU LIKE?') 

; 1001 FORMAT' (IX,' 1) SCREEN PLOTS ONLY, NO HARD COPIES') 

; 1002 FORMAT' (IX,' 2) ONLY HARD COPY PLOTS') 

; 1003 FORMAT' (IX,' 3) SCREEN PLOTS WITH HARD COPY PLOTS OPTIONAL') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 

QUERY &N1 "OPTION NUMBER? » " 

IF &N1-2 ; 30, ; 40, ; 50 
; 30 DEVICE OPEN !DEV 
LET &NPL=0 
GOTO ; 60 

;40 DEVICE OPEN !HCD 
LET &NPL=0 
GOTO ; 60 

; 50 DEVICE OPEN !DEV 
LET &NPL=1 
META OPEN SEL 
;60 CONTINUE 
TITLE ON 
TITLE1 !NAME 
# 

# SUBROUTINE FOR CREATING METAFILE PLOTS ON DEMAND 

# 

SUB PLOT 6.NPL 

DATA &IYES Y 

IF &NPL ; 100 ; 100 ; 10 

; 10 QUERY &NX "DO YOU WISH A HARD COPY PLOT OF THE LAST PLOT?(Y/N) » " 

IF &NX-&IYES ; 100 ; 20 ; 100 

; 20 METASAVE 

; 100 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR SETTING VIEWPOINT 

# 

SUB VIEW &X,&Y,&Z 
DATA &IYES Y 

; 1000 FORMAT' (/IX, 'CURRENT VIEWPOINT IS: X ='F5.1,' Y ='F5.1,' Z ='F5.1,/) 

; 1001 FORMAT' (/IX, 'VIEWING DIRECTION IS FROM THE VIEWPOINT COORDINATES TO'/) 

; 1002 FORMAT' (IX, 'THE ORIGIN, ACTUAL DISTANCE BETWEEN THE POINTS IS NOT USED'/) 
WRITE 6 ; 1000 &X,&Y,&Z 

; 10 QUERY &NX "DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT?(Y/N) »" 

IF &NX-&IYES ; 100 ; 20 ; 100 
; 20 WRITE 6 ; 1001: WRITE 6 ; 1002 

QUERY &X "INPUT NEW VIEWPOINT X COORD. (INCLUDE DECIMAL POINT) » " 

QUERY &Y "INPUT NEW VIEWPOINT Y COORD. (INCLUDE DECIMAL POINT) » " 

QUERY &Z "INPUT NEW VIEWPOINT Z COORD. (INCLUDE DECIMAL POINT) » " 

WRITE 6 ; 1000 &X,&Y,&Z 
; 100 RETURN 
END 
# 

# SUBROUTINE FOR PRINTING LOAD SELECTION MENU 

# 

SUB LMNU 

; 2000 FORMAT' (//IX,' SELECT LOAD FACTOR LEVEL TO BE PLOTTED:') 

;2001 FORMAT' (15X,' LINEAR SOLUTION = O') 

; 2002 FORMAT' (15X, 'MAX LOAD STEP ATTAINED =1') . 

; 2003 FORMAT' (15X,' INTERMEDIATE LOAD FACTOR =2'/) 

WRITE 6 ; 2000: WRITE 6 ; 2001: WRITE 6 ; 2002: WRITE 6 ;2003 
RETURN 



STOP 

# 

# SUBROUTINE FOR SELECTING NONLINEAR LOAD STEP 

# 

sub STAT &pain &iseq , &pao t 

# 

# Return the Solution Sequence number and Load Factor thta are 

# closest to a requested Load Factor. 

# 

# in &pain Requested Load Factor 

# 

# out &iseq Solution sequence number for output Load Factor 

# out &paot Solution Load Factor closest to Requested Load Factor 



# Initialize Variables 

let &iseq=0 
let &paot=0.0 
let &is=0 
let &pa=0.0 
let &ismn=0 
let &pamn=0.0 

# 

let &lstp = %icf 1( PCT . HED. SOLV ,0,0,1) 
let &is tp = %icfl(BRCH.HED, 0,1,2) 
let &nseq = %max(&ls tp, &is tp) 

* 

do ; loop &is=l,&nseq 

let &ifn = Xifl(D.SV,0,&is) 
let &pa = %fafm(&ifn, 1) 
if &pa-&pain 1 , ;mach, ; f ind 
let &pamn = &pa 
let &ismn = &is 
;loop continue 

# Requested Load Factor is .gt. Final Solution Load Factor 
let Stiseq = &is 

let &paot = &pa 
goto ;clos 
;find continue 

# Find Solution Load Factor closest to Requested Load Factor 
let &pdmn = &pain-&pamn 

let &pdmx = &pa-&pain 
if &pdmn-&pdmx 1,1,; max 
let &iseq = &ismn 
let &paot = &pamn 
goto ;clos 
;max continue 

let &iseq = &is 
let &paot = &pa 
goto ;clos 
;mach continue 

# Solution Load Factor matches Requested Load Factor 
let &iseq = &is 

let &paot = &pa 

# 

;clos continue 

; HO format ' (' Analysis State set to Solution Sequence Number ',14) 

; HI format '(' with Solution Load Factor ',F10.3) 

write 6, ; 110 &iseq 
write 6 , ; 111 &paot 

# 

return 

end 
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BASIC GEOM PLOT SUBROUTINE 


# 

# 

* 

SUB GEOl &NPL 
DATA &IYES Y 

; 999 FORMAT' (/IX, 'AFTER EACH PLOT IS GENERATED HIT A RETURN TO CONTINUE'/) 

WRITE 6 ; 999 

TITLE2 'GEOMETRY PLOT 

LEGEND OFF 

ORIENT Z U 

LET &X=1. 

LET &Y=-1 . 

LET &Z=1. 

CALL VIEW &X &Y 
VIEWPT &X &Y &Z 

2000 FORMAT' (/IX, 'PICK THE PARTS TO 
FORMAT' (/15X, 'ALL PARTS (SKIN 
FORMAT' (15X, 'SKIN ONLY 
FORMAT' (15X, 'SINGLE STIFFENER 
6 ; 2000: WRITE 6 ; 2001: WRITE 6 
&N1 " INPUT OPTION » " 

; 100 ; 110 ; 120 


&Z 


2001 
2002 
2003 
WRITE 
QUERY 
IF &N1 


BE DISPLAYED:') 

+ STIFFENERS) = O') 

= - 1 ') 

(1 THRU N) = ?'/) 

; 2002: WRITE 6 ;2003 


; 100 
GOTO 
; 1 10 
GOTO 
; 120 
; 200 


MSET 
; 200 
MSET 
; 200 
MSET 


20 INSERT NAME=BASE 


20 INSERT ALL 


20 INSERT MSET=&N1 
CONTINUE 

SCREEN VIRT -.9, .9, -.9, .9 
1000 FORMAT' (/IX, 'PICK ONE OF 
FORMAT' (/15X, 'NO NODE OR 
FORMAT' (15X, 'NODE NUMBERING ONLY 
FORMAT' (15X, 'ELEMENT NUMBERING ONLY 


THE FOLLOWING LABEL OPTIONS:') 
ELEMENT NUMBERING =0') 

= 1 ') 

= 2 ') 


1001 

1002 

1003 

1004 FORMAT' (15X, 'NODE AND ELEMENT NUMBERING 
WRITE 6 ; 1000: WRITE 6 ;1001:WRITE 6 ;1002:WRITE 
QUERY &N1 " INPUT OPTION >> " 

IF &N1-1 ; 10 ; 20 ; 30 

; 10 OVBEGI : OVGEOM 0 , 0 , 0 , MSET=20 : OVMESH MSET=20:OVGLOB: OVEND 


3'/) 

; 1003: WRITE 6 ; 1004 


GOTO ; 60 

; 20 OVBEGI: OVGEOM 0,0,0,MSET=20: OVMESH MSET=20:0VGL0B 
0 VNODE 0 0 MSET=20:0VEND 
GOTO ; 60 

; 30 IF &N1-2 ;60 ;40 ;50 

; 40 OVBEGI : OVGEOM 0 , 0 , 0 , MSET=20 : OVMESH MSET=20:OVGLOB 
OVELEM 0 0 MSET=20 : OVEND 
GOTO ; 60 

; 50 OVBEGI: OVGEOM 0, 0 , 0 , MSET=20 : OVMESH MSET=20:0VGL0B 
0 VNODE 0 0 MSET=20: OVELEM 0 0 MSET=20 : OVEND 
; 60 CONTINUE 
MSET 20 DELETE ALL 
CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT SHOWING LOAD VECTORS 

# 

SUB GE02 &NPL 
TITLE2 'LOAD PLOT 
LEGEND OFF 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 
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LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEUPT &X &Y &Z 
DSET UL 0 1 
VECT 010. 

CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE03 &XX &NPL 
DATA WYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - LINEAR STRESS 


DSET D 0 1 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y & Z 
VIEWPT &X &Y &Z 

QUERY &NS " WOULD YOU LIKE TO SHOW 
IF &NS-&IYES ; 130 ; 120 ; 130 


THE UNDEFLECTED 


SHAPE? (Y/N)» 


; 120 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2:LATT TYPE 2:0VMESH:0VGL0B:0VEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 

; 130 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX: OVGLOB 


OVMESH : OVEND 

CALL PLOT &NPL 

; 140 CONTINUE 

RETURN 

END 

t 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED BUCKLED SHAPE 


It 


SUB GE04 &XX &NPL 
DATA S.IYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - BIFURCATION BUCKLING 
DSET BUCK 0 1 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 

QUERY &NS - WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE?(Y/N)» 
IF &NS-&IYES ; 170 ; 160 ; 1 70 

; 160 CONTINUE , , 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2: LATT TYPE 2 : OVMESH : OVGLOB : OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 180 

; 170 CONTINUE 

OVBEGI : SCREEN VIRT -.9, .9, -.9, .9:0VGE0M:0VGE0M 1 1 &XX: OVGLOB 

: OVMESH: OVEND 


A-261 



CALL PLOT &NPL 

; 180 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE05 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

CALL VIEW &X &Y &Z 
VIEVPT &X &Y &Z 
IF &NS-1 ; 10 j 20 ; 30 
; 10 DSET D,0, 1 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - LINEAR SOLUTION 
GOTO ; 100 

J 20 LET &MLS = XICFL(BRCH . HED, 0 , 1,2) 

DSET D, 0, &MLS 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - FINAL STEP 
GOTO ; 100 
; 30 CONTINUE 

> 1005 FORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR. 
WRITE 6 ; 1005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ, &PAOT 
DSET D, 0, &ISEQ 

;2000 FORMAT' (' DEFLECTED GEOM - NONLINEAR ANALYSIS - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ;2000 &PAOT 
TITLE2 !TIT2 
; 100 CONTINUE 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 130 ; 120 ; 130 
; 120 CONTINUE 

OVBEGI: SCREEN VIRT - . 9 , . 9 , - . 9, . 9 : OVGEOM : OVGEOM 1 1 &XX 
OVMESH : OVGEOM 2 : LATT TYPE 2 : OVMESH : OVGLOB : OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 
; 130 CONTINUE 

OVBEGI: SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM: OVGEOM 1 1 &XX: OVGLOB 

OVMESH: OVEND 

CALL PLOT &NPL 

; 140 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR SELECTING DEFLECTION PLOTS 

# 

SUB DEFL &NG &XX 
DATA &IYES Y 

J 1000 FORMAT' (//IX, 'SELECT DESIRED DEFLECTION PLOT TYPE:') 

; 1001 FORMAT' (/15X, 'LINEAR ANALYSIS = O') 

? 1002 FORMAT' (15X, 'BUCKLING ANALYSIS MODE SHAPE = 1') 

; 1003 FORMAT' (15X, 'NONLINEAR ANALYSIS =2'/) 

WRITE 6 ; 1000: WRITE 6 ; 1001: WRITE 6 ; 1002: WRITE 6 :1003 
QUERY &NS " INPUT SELECTION » " 
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1004 FORMAT' (/IX, 'SELECT DEFLECTION MAGNIFICATION FACTOR TO BE USED:') 


1005 FORMAT' (/15X,' LOW (.10) = 0' ) 

1006 FORMAT' (15X, 'MED (.20) =1') 

1007 FORMAT' (15X, 'HIGH (.50) =2') 

1008 FORMAT' (15X, 'USER SELECTABLE = 3'/) 


WRITE 6 ; 1004: WRITE 6 ; 1005: WRITE 6 ; 1006: WRITE 6 ; 1007 
WRITE 6 ; 1008 

QUERY &NM " INPUT SELECTION >> " 

IF &NM-1 ; 10 ; 20 ; 30 
; 10 LET &XX=.l 
GOTO ; 100 
; 20 LET &XX=.2 
GOTO ; 100 

; 30 IF &NM-2 ; 100 ; 40 ; 50 
; 40 LET &XX=.5 
GOTO ; 100 

; 50 QUERY &XX " INPUT MAGNIFICATION FACTOR » " 

; 100 CONTINUE 
IF &NS-1 ; 60 ; 70 ;80 
;60 LET &NG=3 
GOTO ; 200 
; 70 LET &NG=4 
GOTO ; 200 
;80 LET &NG=5 
; 200 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR PRINTING STRESS QUANTITY MENU 


# 

SUB MNU2 

; 1000 FORMAT' (/IX, 'QUANTITY MENU: (LINE LOAD) N-X = 1, N-Y = 2, N-XY =3') 

; 1001 FORMAT' (IX, ' (LINE MOMENT) M-X = 4, M-Y = 5') 

; 1002 FORMAT' (IX, ' (AVG STRAIN) E-X = 11, E-Y = 12, E-XY = 13') 

; 1003 FORMAT' (IX, ' --> INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 

WRITE 6 ; 1001 

WRITE 6 ; 1002 

WRITE 6 ; 1003 

RETURN 

END 

# 

# SUBROUTINE TO PRINT LAYER STRESS MENU 

# 


SUB MNU3 

; 1000 FORMAT '(/IX, 'QUANTITY MENU: (LAYER STRESS) S-X = 1, S-Y = 2, S-XY =4') 

; 1001 FORMAT' (IX, ' (LAYER STRAIN) E-X = 11, E-Y = 12, E-XY =14') 

; 1002 FORMAT' (IX, ' — > INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
RETURN 
END 
# 

t SUBROUTINE FOR CONTOUR PLOTS OF SKIN AVG LOADS AND STRAIN 
# 

SUB CONI &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 

ORIENT X R A-263 

LET &X=0 
LET &Y=0 



LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEUPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = £ICFL(BRCH . HED,0, 1,2) 

SSET S , 0 , &MLS 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - FINAL STEP 
GOTO ; 999 
;520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 
SSET S,0, &ISEQ 

; 2006 FORMAT' ('SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 

DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL A 'M-X AVG LINE MOMENT 

DLABEL 5 'M-Y AVG LINE MOMENT 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

; 25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 30 ;40 ;30 
; 30 DFROMS &N3 , &N3 , MSH , 0 , NAME=BASE 
CONT &N3,0, 15,0,NAME=BASE 
CALL PLOT &NPL 
GOTO ; 25 
; 40 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN PLY STRESS AND STRAIN 

# 

SUB C0N2 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT X R 
LET &X=0 
LET &Y=0 
LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ;500 ;510 ; 520 
;500 SSET S,0,1 
GOTO ; 999 

; 510 LET &MLS = %ICFL( BRCH . HED ,0,1,2) 

SSET S,0,&MLS 
GOTO ; 999 
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;20Q5 C F0RMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 

QUERY &PAIN°" INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 
SSET S,0,&ISEQ 
; 999 CONTINUE 

DLABEL 1 'S-X PLY STRESS 

'S-Y PLY STRESS 

'S-XY PLY STRESS 

'E-X PLY STRAIN 

'E-Y PLY STRAIN 

'E-XY PLY STRAIN 


2 

4 


DLABEL 
DLABEL 
DLABEL 11 
DLABEL 12 
DLABEL 14 


•1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 

! 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS) /) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
; 80 CONTINUE 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED » (( 

QUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0 , T0P=1 » 

CALL MNU3 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER >> 

IF &N3-99 ;90 ;100 ; 90 
; 90 SSHELL 1 &NLN S.NLS NAME=BASE 

DFROMS &N3 , &N3 , MSH , 0 ,NAME=BASE qiipfACE - '131 

; 3000 FORMAT' ('SKIN STRESS QUANTITY = '13,', LAYER = 13, , SURFACE - 13) 

WRITE !TIT2 ;3000 6.N3 &NLN &NLS 
TITLE2 !TIT2 

CONT &N3,0, 15,0,NAME=BASE 

QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS? (Y/N)>> 

IF &N1-&IYES ; 100 ;95 ; 100 

; 95 GOTO ;80 

; 100 CONTINUE 

RETURN 

END 


# SUBROUTINE FOR CONTOUR PLOTS OF SKIN MARGIN OF SAFETY 

# 

SUB CON 3 &NPL 

DATA &IYES Y 

; 10 LEGEND ON RIGHT 

ORIENT X R 

LET &X=0 

LET &Y=0 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ;500 ; 510 ; 520 
* 500 SSET S 0 1 

TITLE2 'SKIN M.S. AT ELEM QUAD POINTS - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH. HED, 0 ,1,2) 

SSET S 0 &MLS 

TITLE2''SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - FINAL STEP 


GOTO ; 999 

;2005 C St’(/ IX, 'PROGRAM KILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR. V )A-265 
QUERY EPAIN°" INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » 



CALL STAT &PAIN &ISEQ, &PAOT 
SSET S,0, &ISEQ 

* 2006 FORMAT' ('SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - LOAD FACTOR -'F5 2 1 
WRITE !TIT2 ; 2006 &PAOT ' ; 

TITL.E2 !TIT2 
; 999 CONTINUE 

DLABEL 1 'MARGIN OF SAFETY 
FAIL ON 11 

SSHF.LL/MQMS=1 1 1 -1 NAME=BASE 
DFROME 1 1 MSH NAME=BASE 
CONT 1,0, 15,0,NAME=BASE 
CALL PLOT &NPL 
;60 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF AVG LOADS & STRAIN 

# STIFFENERS 

# 

# 

SUB C0N4 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ;520 
; 500 SSET S,0,1 
GOTO ; 999 

;510 LET &MLS = nCFL(BRCH.HED,0, 1 ,2) 

SSET S,0,&MLS 
GOTO ;999 
; 520 CONTINUE 

;2O05 FORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 y 2005 

OUF.RY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1 01 » " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S,0,&ISEQ 
; 999 CONTINUE 

DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

;25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 30 ;40 ; 40 

;30 QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

;3000 FORMAT' (' STIFFENER AVG LINE LOAD OR STRAIN - STIFF NO - '131 
WRITE !TIT2 ;3000 &NS ' 

TITLE2 !TIT2 

DFROMS &N3 , &N3 , MSH , 0 , MSET=&NS 
CONT &N3 , 0 , 15 , 0 , MSET=&NS 
CALL PLOT &NPL 
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GOTO ; 25 
;40 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF LAYER STRESS & STRAIN 

# STIFFENERS 

# 

SUB CON5 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LHNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 
GOTO ; 999 

J 510 LET &MLS = %ICFL(BRCH. HED, 0 ,1,2) 

SSET S,0,&MLS 
GOTO ; 999 
; 520 CONTINUE 

;2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 


SSET S,0, &ISEQ 
; 999 CONTINUE 
; 70 CONTINUE 

DLABEL 1 'S-X PLY STRESS 

DLABEL 2 ' S-Y PLY STRESS 

DLABEL 4 ' S-XY PLY STRESS 

DLABEL 11 'E-X PLY STRAIN 

DLABEL 12 'E-Y PLY STRAIN 

DLABEL 14 'E-XY PLY STRAIN 


;1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 

5 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
;80 CONTINUE 

QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) >> " 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED >> " 

OUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0, T0P=1 » " 

CALL MNU3 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 90 ; 100 ; 90 

;90 SSHELL 1 &NLN &NLS MSET=&NS 

DFROMS &N3 , &N3 , MSH , 0 , MSET=&NS 

;3000 FORMAT' (' STIFF N0.= '13,', STRESS QUAN= '13,', LAYER= '13', SURF= '13) 

WRITE !TIT2 ;3000 &NS &N3 &NLN &NLS 
TITLE2 !TIT2 

CONT &N3,0, 15,0,MSET=&NS 
CALL PLOT &NPL 

QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS?(Y/N)» " 

IF &N1-&IYES ; 100 ; 95 ; 100 

; 95 GOTO ; 80 A-267 

; 100 CONTINUE 

RETURN 



END 

* 

# SUBROUTINE FOR MAKING CONTOUR PLOTS OF MARGIN OF SAFETY 

# STIFFENERS 

# 

SUB CON6 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ;510 ;520 
;500 SSET S,0,1 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH.HED,0, 1,2) 

SSET S,0,&MLS 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.' 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ.&PAOT 
SSET S, 0, &ISEQ 
; 999 CONTINUE 

DLABEL 1 'MARGIN OF SAFETY 
FAIL ON 11 

QUERY &NS "INPUT STIFFENER NUMBER (ALL= 10) » " 

; 3000 FORMAT' ('AML MARGIN OF SAFETY - STIFF. N0.= '13) 

WRITE !TIT2 ;3000 &NS 
TITLE2 !TIT2 

SSHELL/MQMS=1 11-1 MSET=&NS 

DFROME 1 1 MSH MSET=&NS 

CONT 1,0, 15,0,MSET=&NS 

CALL PLOT &NPL 

; 60 CONTINUE 

FAIL OFF 11 

RETURN 

END 

# 

# SUBROUTINE FOR GENERATING MAX-MIN SUMMARY TABLES 

# FOR THE SKIN PANEL AND STIFFENERS AVG LAMINATE LOADS & STRAINS 

# 

SUB SUM1 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ; 40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 
IF &N2-&IYES ;40 ; 30 ; 40 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 ! OUT 
UNIT 8 

;40 CONTINUE 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ;500 ; 510 ;520 
; 500 SSET S,0,1 
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TITLE2 'SKIN AVG LINE LOAD OR STRAIN - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH. HED, 0 ,1,2) 

SSET S,0,&MLS 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - FINAL STEP 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) >> " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S,0,&ISEQ 

; 2006 FORMAT' ('SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 
PRINT OFF, 0, LIST 


SLABEL 

1 'N-X 

LINE LOAD 

SLABEL 

2 'N-Y 

LINE LOAD 

SLABEL 

3 'N-XY 

LINE LOAD 

SLABEL 

4 'M-X 

MOMENT LOAD 

SLABEL 

5 'M-Y 

MOMENT LOAD 

SLABEL 

11 'E-X AVG 

STRAIN 

SLABEL 

12 'E-Y AVG 

STRAIN 

SLABEL 

13 'E-XY AVG 

STRAIN 

DLABEL 

1 'N-X AVG 

LINE LOAD 

DLABEL 

2 'N-Y AVG 

LINE LOAD 

DLABEL 

3 'N-XY AVG 

LINE LOAD 

DLABEL 

11 'E-X AVG 

STRAIN 

DLABEL 

12 'E-Y AVG 

STRAIN 

DLABEL 

13 'E-XY AVG 

STRAIN 


SPRINT 8,1,2,3,4,5,11,12,13,0, NAME=BASE 
IF S.IF1 ; 50 ; 50 ;60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

; 3000 FORMAT' ('AVG LINE LOAD OR STRAIN AT INTEG PTS. - STIFF. N0.= '13) 
WRITE !TIT2 ; 3000 &NS 
TITLE2 !TIT2 

SPRINT 8,1,2,3,4,5,11,12,13,0, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

;80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLES OF PLY STRESS AND STRAIN 

# 

SUB SUM2 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ;40 ; 20 ;40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 
IF &N2-&IYES ; 40 ; 30 ;40 

; 30 QUERY ! OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 !OUT 
UNIT 8 
;40 CONTINUE 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ; 520 
;500 SSET S,0,1 


A-269 



TITLE2 'SKIN PANEL PLY STRESS SUMMARY - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH.HED,0, 1,2) 

SSET S , 0 , &MLS 

TITLE2 'SKIN PANEL PLY STRESS SUMMARY - NONLINEAR - FINAL STEP 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/ 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S , 0 , &ISEQ 

; 2006 FORMAT' ('SKIN PANEL PLY STRESS SUMMARY - NONLINEAR - LOAD FACTOR ='F5. 
WRITE !TIT2 ;2006 S.PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 
PRINT OFF, 0, LIST 


SLABEL 

1 'S-X PLY 

STRESS 

SLABEL 

2 'S-Y PLY 

STRESS 

SLABEL 

4 'S-XY PLY 

STRESS 

SLABEL 

11 'E-X PLY 

STRAIN 

SLABEL 

12 'E-Y PLY 

STRAIN 

SLABEL 

14 'E-XY PLY 

STRAIN 

DLABEL 

1 'S-X PLY 

STRESS 

DLABEL 

2 'S-Y PLY 

STRESS 

DLABEL 

4 'S-XY PLY 

STRESS 

DLABEL 

11 'E-X PLY 

STRAIN 

DLABEL 

12 'E-Y PLY 

STRAIN 

DLABEL 

14 'E-XY PLY 

STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE GIVEN IN THE LOCAL PLY') 

; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 

PSHELL 6,1,2,4,11,12,14,1,0,0,1,0,1, NAME=BASE 
IF &IF1 ; 50 ; 50 ; 60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 QUERY &NS "INPUT STIFFENER NUMBER (ALL= 10) » " 

; 3000 FORMAT' ('PLY STRESS SUMMARY AT ELEM QUAD POINTS - STIFF. N0.= '13) 
WRITE !TIT2 ; 3000 &NS 
TITLE2 !TIT2 
; 60 TITLE2 'STIFFENER 

PSHELL 6, 1,2,4,11, 12, 14, 1,0, 0,1, 0,1, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLE OF MARGINS OF SAFETY 

# 

SUB SUM3 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ; 40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 
IF &N2-&IYES ; 40 ; 30 ; 40 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 !OUT 
UNIT 8 
;40 CONTINUE 
CALL LMNU 


) 


2 ) 
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QUF.RY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ;520 
; 500 SSET S,0,1 

TITI.E2 'SKIN MARGIN OF SAFETY SUMMARY - LINEAR SOLUTION 
GOTO ;999 

; 510 LET &MLS = %ICFL(BRCH.HED,0, 1 ,2) 

SSET S,0,&MLS 

TITLE2 'SKIN MARGIN OF SAFETY SUMMARY - NONLINEAR - FINAL STEP 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 

WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN S.ISEQ,&PAOT 
SSET S,0,&ISEQ 

; 2006 FORMAT' ('SKIN MARGIN OF SAFETY SUMMARY - NONLINEAR - LOAD FACTOR ='F5.2) 

WRITE !TIT2 ;2006 &PAOT 

TITLE2 !TIT2 

; 999 CONTINUE 

FAIL ON 11 

PRINT OFF, 0, LIST 

PSHELL 2,11,12,1,0,0,1,1,1, NAME=BASE 
IF &IF1 ; 50 ; 50 ; 60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 60 QUERY &NS "INPUT STIFFENER NUMBER (ALL= 10) » " 

; 3000 FORMAT' ('AML MARGIN OF SAFETY AT ELEM QUAD POINTS - STIFF. N0.= '13) 

WRITE !TIT2 ; 3000 &NS 
TITLE2 !TIT2 

PSHELL 2,11,12,1,0,0,1,1,1, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 OUERY &ID "HIT RETURN TO CONTINUE!" 

; 80 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE FOR TRANSFORMING METAPLOT FILES TO DEVICE PLOT FILES 

# 

SUB HC &NPL 

IF &NPL ; 100 ; 100 ; 10 

; 10 DEVICE OPEN <SHCD> 

; 1000 FORMAT' (/IX, 'SAVED PLOTS ARE NOW BEING TRANSFORMED TO PLOT FILES') 

; 1001 FORMAT' (IX, 'PLEASE WAIT UNTIL COMPLETION IS INDICATED.') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
METAPLOT 

; 1000 FORMAT' (/IX, 'PLOT FILE TRANSFORMATION COMPLETED'//) 

WRITE 6 ; 1000 

; 100 CONTINUE 

RETURN 

END 

# 

# 

# THE FOLLOWING PROCEDURE DISPLAYS A MENU FOR SELECTION OF 

# POST PROCESSING FUNCTIONS 

# 

SUB MENU 

; 1000 FORMAT' (//IX, 'MENU FOR PLOTS AND SUMMARY TABLES:'/) 

; 1001 FORMAT' (10X, ' 1) BASIC GEOMETRY PLOT') 

; 1002 FORMAT' (10X, '2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN') A-271 

; 1003 FORMAT' (10X, '3) DEFLECTED GEOMETRY PLOT') 

; 1005 FORMAT' (10X, '4) CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR STRAINS') 



; 1006 FORMAT' (10X, '5) CONTOUR PLOT OF SKIN PLY STRESS OR STRAIN') 

; 1007 FORMAT' (10X, '6) CONTOUR PLOT OF SKIN MARGIN OF SAFETY') 

; 1008 FORMAT' (10X, ' 7) CONTOUR PLOT OF STIFF. AVG LAMINATE LOADS OR STRAINS') 

; 1009 FORMAT' (10X, '8) CONTOUR PLOT OF STIFF. PLY STRESS OR STRAIN') 

; 1010 FORMAT' (10X, '9) CONTOUR PLOT OF STIFF. MARGIN OF SAFETY') 

; 1011 FORMAT' (9X, ' 10) SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS') 

; 3012 FORMAT' (9X, 'll) SUMMARY TABLE OF PLY STRESSES AND STRAINS') 

; 1013 FORMAT' (9X, ' 12) SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY'/) 

; 1014 FORMAT' (9X, '99) TERMINATE POST PROCESSING SESSION'/) 

WRITE 6 ; 1000 : WRITE 6 ;1001:WRITE 6 ;1002:WRITE 6 ; 1003 

WRITE 6 ; 1005 : WRITE 6 ;1006:WRITE 6 ; 1007 

WRITE 6 ; 1008: WRITE 6 ; 1009: WRITE 6 ; 1010: WRITE 6 ; 1011 

WRITE 6 ; 1012 : WRITE 6 ;1013:VRITE 6 ; 1014 

RETURN 
END 
# 

#MENU SELECTION SUBROUTINE 
# 

SUB SEL2 &NPL &IMN 
IF &IMN-2 ; 10 ;20 ; 30 
; 10 CALL GE01 &NPL 
GOTO ; 500 
; 20 CALL GE02 &NPL 
GOTO ; 500 

; 30 IF &IMN-4 ;40 ; 50 ; 60 
; 40 CALL DEFL &NG &XX 
IF &NG-4 ; 41 ;42 ; 43 
; 41 CALL GE03 &XX &NPL 
GOTO j 500 

; 42 CALL GE04 &XX &NPL 
GOTO ; 500 

; 43 CALL GE05 &XX &NPL 
GOTO ; 500 
; 50 CALL CONI &NPL 
GOTO ; 500 

;60 IF &IMN-6 ; 70 ;80 ; 90 
; 70 CALL C0N2 &NPL 
GOTO ; 500 
;80 CALL C0N3 &NPL 
GOTO ; 500 

;90 IF &IMN-8 ; 100 ;500 ;500 
; 100 CALL C0N4 &NPL 
; 500 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MENU SELECTION AND REDIRECTION 

# 

SUB SEL1 &IF1 &NPL 
; 5 CONTINUE 
CALL MENU 

OUERY &IMN "INPUT NUMBER OF MENU ITEM DESIRED » " 

CALL SEL2 &NPL &IMN 
IF &IMN-99 ; 10 ;200 ; 10 
; 10 IF &IMN-8 ;5 ;120 ; 120 
; 120 IF &IMN-9 ; 130 ;140 ; 150 
; 130 CALL C0N5 &NPL 
GOTO ; 5 

; 140 CALL C0N6 &NPL 

GOTO ; 5 A-272 

; 150 IF &IMN-11 ; 160 ; 170 ; 180 
; 160 CALL SUM1 &IF1 



GOTO ; 5 

; 170 CALL SUM2 &IF1 
GOTO ; 5 

; 180 CALL SUH3 &IF1 
GOTO ; 5 
; 200 CONTINUE 
RETURN 
END 
# 

# MAIN PROGRAM SUBROUTINE DRIVER 

# 

CALL SEL1 &IF1 &NPL 
CALL HC &NPL 
CLOSE 8 

; 1000 FORMAT' (///IX, 'THIS COMPLETES THE POST PROCESSING SESSION.'/) 

; 1001 FORMAT' (IX, 'ANY HARD COPY PLOTS GENERATED HERE WILL RESIDE ON') 

; 1002 FORMAT' (IX, 'FILES IN THE WORKING DIRECTORY, USE NORMAL SUBMITTAL') 
; 1003 FORMAT' (IX, 'PROCEDURES TO ACTUALLY PRINT THEM.'//) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 
STOP 
SEND: 

$ ! End of PPFLAT.COM 
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CURVED STIFFENED PANEL MODULE # 2 
POST PROCESSING DRIVER 


########### 


$! 

$ ! DIALAMATIC 

$! 

$ ! THIS PROCEDURE IS DESIGNED TO PERFORM 
$ ! POST PROCESSING FOR MODELS GENERATED WITH 
$ ! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 
$! 

$ ! VAX VERSION VI. 2 6-28-91 

$ ! AUTHOR: WAYNE M. BROWN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$! 

$ ! ################################################################### 

$ ST ART: 

$ W := WRITE SYSSOUTPUT 
$W "" 

$W " Advanced Composites Structural Concept" 

$W " and Materials Technologies" 

$W " Automated DIAL finite element analysis" 

$W " POST PROCESSING MODULE" 

$W M Tt 

$W " VAX VERSION 1.2" 

$V " JUNE 1991" 

$W "" 

$W "" 

$W "" 

SINQUIRE DB "What is the name of the DIAL data base file?" 

$ASSIGN 'DB' FIL002 
$W "" 

$!######################################################################### 
$ ! THE FOLLOWING COMMAND MAY NEED TO BE MODIFIED TO RUN 
$ ! THE DIAL SCOPE PROCESSOR IF THE EQUIVALENT NAME IS NOT 
$ ! ALREADY SETUP IN THE USER LOGIN.COM 
$ ! EXAMPLE: CHANGE TO $RUN DIAL$DIR : SCOPE 

S’######################################################################### 

SSCOPE 

START -1 

############################################################# 

# 

# THIS SCOPE PROCEDURE IS FOR THE CURVED, 

# STRINGER STIFFENED PANEL 

# 

############################################################# 

SET SYNTAX ON 
LET &IF1=0 
DATA &NB B 
DATA &IYES Y 

; 1000 FORMAT' (IX, 'GIVE A SHORT NAME FOR THIS ANALYSIS') 

WRITE 6 ; 1000 

QUERY !NAME " PRECEDE MULTIPLE WORDS WITH APOSTROPHE » " 

QUERY !DEV "WHAT TYPE OF TERMINAL? (TEK, SEL.RETR, VT24) » " 

DEFINE SHCD VERS 

QUERY &NBW "COLOR OR BLACK & WHITE? (C/B) » " 

IF &NBW-&NB ; 91 , ; 90, ; 91 
;90 DSPECT SET 0 WHITE 
DSPECT SET 1 BLACK 
; 91 CONTINUE 

QUERY &NHC "WILL YOU WANT TO PLOT HARD COPIES? (Y/N) » " 

IF &NHC-&IYES ;30, ;10, ;30 

; 10 QUERY !HCD "INPUT HARD COPY DEVICE(VERS, QMS) » " 

DEFINE SHCD !HCD 
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; 1000 FORMAT' (/IX, 'WHAT OUTPUT OPTION WOULD YOU LIKE?') 

; 1001 FORMAT' (IX,' 1) SCREEN PLOTS ONLY, NO HARD COPIES') 

; 1002 FORMAT' (IX,' 2) ONLY HARD COPY PLOTS') 

; 1003 FORMAT' (IX,' 3) SCREEN PLOTS WITH HARD COPY PLOTS OPTIONAL') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 

QUERY &N1 "OPTION NUMBER? >> " 

IF &N1-2 ; 30, ;40, ;50 
; 30 DEVICE OPEN !DEV 
LET &NPL=0 
GOTO ; 60 

; 40 DEVICE OPEN !HCD 
LET &NPL=0 
GOTO ; 60 

;50 DEVICE OPEN !DEV 
LET &NPL=1 
META OPEN SEL 
;60 CONTINUE 
TITLE ON 
TITLE1 !NAME 
# 

# SUBROUTINE FOR CREATING METAFILE PLOTS ON DEMAND 

# 

SUB PLOT &NPL 

DATA &IYES Y 

IF &NPL ; 100 ; 100 ; 10 

; 10 QUERY &NX "DO YOU WISH A HARD COPY PLOT OF THE LAST PLOT?(Y/N) » " 

IF &NX-&IYES ; 100 ; 20 ; 100 
; 20 METASAVE 
; 100 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR SETTING VIEWPOINT 

# 

SUB VIEW &X,&Y,&Z 
DATA &IYES Y 

; 1000 FORMAT' (/IX, 'CURRENT VIEWPOINT IS: X ='F5.1,' Y ='F5.1,' Z ='F5.1,/) 
; 1001 FORMAT' (/IX, 'VIEWING DIRECTION IS FROM THE VIEWPOINT COORDINATES TO'/) 
; 1002 FORMAT' (IX, 'THE ORIGIN, ACTUAL DISTANCE BETWEEN THE POINTS IS NOT USED 
WRITE 6 ; 1000 &X,&Y,&Z 

; 10 QUERY &NX "DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT?(Y/N) »" 

IF &NX-&IYES ; 100 ;20 ; 100 
; 20 WRITE 6 ; 1001: WRITE 6 ; 1002 


QUERY 

&X 

"INPUT 

NEV 

VIEWPOINT 

X 

COORD. (INCLUDE 

DECIMAL 

POINT) 

» 

QUERY 

&Y 

"INPUT 

NEW 

VIEWPOINT 

Y 

COORD. (INCLUDE 

DECIMAL 

POINT) 

» 

QUERY 

&Z 

"INPUT 

NEV 

VIEWPOINT 

Z 

COORD. (INCLUDE 

DECIMAL 

POINT) 

» 

WRITE 

6 ; 

1000 &X, &Y, 








; 100 RETURN 
END 
# 

# SUBROUTINE FOR PRINTING LOAD SELECTION MENU 

# 

SUB LMNU 

; 2000 FORMAT' (//IX, 'SELECT LOAD FACTOR LEVEL TO BE PLOTTED:') 
; 2001 FORMAT' (15X, 'LINEAR SOLUTION = O') 

; 2002 FORMAT' (15X, 'MAX LOAD STEP ATTAINED = 1') 

; 2003 FORMAT' (15X,' INTERMEDIATE LOAD FACTOR = 2'/) 

WRITE 6 ; 2000: WRITE 6 ; 2001: WRITE 6 ; 2002: WRITE 6 ;2003 
RETURN 
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STOP 

# 

# SUBROUTINE FOR SELECTING NONLINEAR LOAD STEP 

# 

sub STAT &pain &iseq,&paot 

# 

# Return the Solution Sequence number and Load Factor thta are 

# closest to a requested Load Factor. 

# 


# 

M 

in &pain 

Requested Load Factor 


# 

out &iseq 

Solution sequence number for 

output Load Factor 

# 

u 

out &paot 

Solution Load Factor closest 

to Requested Load Factor 

# 

let &iseq=0 

Initialize Variables 



let &paot=0.0 
let &is=0 
let &pa=0.0 
let &ismn=0 
let &pamn=0.0 

# 

let &lstp = %icf 1( PCT . HED. S0LV,0,0, 1) 
let &istp = %icfl(BRCH.HED, 0,1,2) 
let &nseq = %max(&ls t p , &is tp) 

# 

do ;loop &is=l,&nseq 

let &i fn - Xifl(D.SV,0,&is) 
let &pa = %fafm(&ifn, 1) 
if &pa-&pain 1 , ; mach , ; f ind 
let &pamn = &pa 
let &ismn = &is 
;loop continue 

# Requested Load Factor is .gt. Final Solution Load Factor 
let &iseq = &is 

let &paot = &pa 
goto ;clos 
;find continue 

# Find Solution Load Factor closest to Requested Load Factor 
let &pdmn = &pain-&pamn 

let &pdmx = &pa-6«pain 
if &pdmn-&pdmx 1,1,; max 
let &iseq = &ismn 
let &paot = &pamn 
goto ;clos 
;max continue 

let &iseq = &is 
let &paot = &pa 
goto ;clos 
;mach continue 

# Solution Load Factor matches Requested Load Factor 
let &iseq = &is 

let &paot = &pa 

# 

;clos continue 

; HO format '(' Analysis State set to Solution Sequence Number ',14) 

; 111 format '(' with Solution Load Factor ',F10.3) 

write 6, ; 110 &iseq 
write 6, ;111 &paot 

# 

return 

end 
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# 

# BASIC GEOM PLOT SUBROUTINE 

# 

SUB GEOl &NPL 
DATA &IYES Y 

; 999 FORMAT' (/IX, 'AFTER EACH PLOT IS GENERATED HIT A RETURN TO CONTINUE'/) 

WRITE 6 ;999 
TITLE2 'GEOMETRY PLOT 
LEGEND OFF 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 

; 2000 FORMAT' (/IX, 'PICK THE PARTS TO BE DISPLAYED:') 

; 2001 FORMAT' (/15X, 'ALL PARTS (SKIN + STIFFENERS) = O') 

; 2002 FORMAT' (15X,' SKIN ONLY = -1') 

; 2003 FORMAT' (15X, 'SINGLE STIFFENER (1 THRU N) = ?'/) 

WRITE 6 ; 2000: WRITE 6 ; 2001: WRITE 6 ; 2002: WRITE 6 ;2003 
QUERY &N1 " INPUT OPTION » " 

IF &N1 ; 100 ; 110 ; 120 
; 100 MSET 20 INSERT NAME=BASE 
GOTO ; 200 

; 110 MSET 20 INSERT ALL 
GOTO ;200 

; 120 MSET 20 INSERT MSET=&N1 

; 200 CONTINUE 

SCREEN VIRT -.9, .9, -.9, .9 

; 1000 FORMAT' (/IX, ' PICK ONE OF THE FOLLOWING LABEL OPTIONS:') 

; 1001 FORMAT' (/15X, 'NO NODE OR ELEMENT NUMBERING = O') 

; 1002 FORMAT' (15X, 'NODE NUMBERING ONLY =1') 

; 1003 FORMAT' (15X, 'ELEMENT NUMBERING ONLY =2') 

; 1004 FORMAT' (15X, 'NODE AND ELEMENT NUMBERING = 3'/) 

WRITE 6 ; 1000: WRITE 6 ; 1001: WRITE 6 ; 1002: WRITE 6 ; 1003: WRITE 6 ;1004 
QUERY &N1 " INPUT OPTION » " 

IF &N1-1 ; 10 ; 20 ;30 

; 10 OVBEGI : OVGEOM 0 , 0 , 0 , MSET=20 : OVMESH MSET=20:OVGLOB:OVEND 
GOTO ;60 

; 20 OVBEGI :OVGEOM 0,0,0,MSET=20: OVMESH MSET=20:0VGLOB 
0 VNODE 0 0 MSET=20:0VEND 
GOTO ; 60 

; 30 IF &N1-2 ; 60 ;40 ;50 

;40 OVBEGI : OVGEOM 0,0,0,MSET=20: OVMESH MSET=20:0VGL0B 
OVELEM 0 0 MSET=20:0VEND 
GOTO ;60 

;50 OVBEGI : OVGEOM 0,0,0,MSET=20: OVMESH MSET=20:OVGLOB 
0 VNODE 0 0 MSET=20: OVELEM 0 0 MSET=20:0VEND 
; 60 CONTINUE 
MSET 20 DELETE ALL 
CALL PLOT &NPL 
RETURN 
END 
ft 

# SUBROUTINE FOR GEOMETRY PLOT SHOWING LOAD VECTORS 

# 

SUB GE02 &NPL 
TITLE2 'LOAD PLOT 

LEGEND OFF A-277 

ORIENT Z U 
LET &X=1 . 

LET &Y=-1 . 



LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEUPT &X&Y &Z 
DSET UL 0 1 
VECT 010. 

CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE03 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - LINEAR STRESS 

DSET D 0 1 

DGLOBAL 

ORIENT Z U 

LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 130 ;120 ; 130 
; 120 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM: OVGEOM 1 1 &XX 
OVMESH : OVGEOM 2 : LATT TYPE 2:0VMESH:0VGL0B:0VEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 
; 130 CONTINUE 

OVBEGI : SCREEN VIRT - . 9, . 9, - . 9, . 9 : OVGEOM : OVGEOM 1 1 &XX.-OVGLOB 
OVMESH :OVEND 
CALL PLOT &NPL 
; 140 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED BUCKLED SHAPE 

# 

SUB GE04 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - BIFURCATION BUCKLING 

DSET BUCK 0 1 

DGLOBAL 

ORIENT Z U 

LET &X=1. 

LET &Y=-1 . 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y & Z 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE 7 (Y/N)>> " 

IF &NS-&IYES ; 170 ; 160 ;170 
; 160 CONTINUE 

OVBEGI : SCREEN VIRT -.9, .9, -.9,. 9: OVGEOM : OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2: LATT TYPE 2: OVMESH :OVGLOB:OVEND 
CALL PLOT &NPL 

LATT TYPE 0 A-278 

GOTO ; 180 
; 170 CONTINUE 



OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX: OVGLOB 
:OVMESH:OVEND 
CALL PLOT &NPL 
; 180 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE05 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2. 

CALL LMNU 

QUERY 6.NS " INPUT SELECTION >> " 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
IF &NS-1 ; 10 ; 20 ; 30 
; 10 DSET D,0, 1 
DGLOBAL 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - LINEAR SOLUTION 
GOTO ; 100 

; 20 LET &MLS = %ICFL(BRCH.HED,0, 1 ,2) 

DSET D,0, &MLS 
DGLOBAL 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - FINAL STEP 
GOTO ; 100 
; 30 CONTINUE 

; 1005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 

WRITE 6 ; 1005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 

DSET D,0,&ISEQ 

DGLOBAL 

; 2000 FORMAT' ( 'DEFLECTED GEOM - NONLINEAR ANALYSIS - LOAD FACTOR ='F5.2) 

WRITE !TIT2 ; 2000 &PAOT 
TITLE2 !TIT2 
; 100 CONTINUE 

QUERY &NS ’’ WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 130 ;120 ; 130 
; 120 CONTINUE 

OVBEGI : SCREEN VIRT -.9, .9, -.9, .9:0VGE0M: OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2 : LATT TYPE 2 : OVMESH : OVGLOB : OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 
; 130 CONTINUE 

OVBEGI: SCREEN VIRT -. 9 , .9, -.9, .9: OVGEOM: OVGEOM 1 1 &XX : OVGLOB 
OVMESH: OVEND 
CALL PLOT &NPL 
; 140 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR SELECTING DEFLECTION PLOTS 

# A-279 

SUB DEFL &NG &XX 
DATA &IYES Y 

;1000 FORMAT' (//IX, 'SELECT DESIRED DEFLECTION PLOT TYPE:') 



; 1001 FORMAT' (/15X, 'LINEAR ANALYSIS = O') 

; 1002 FORMAT' (15X, 'BUCKLING ANALYSIS MODE SHAPE = 1') 

; 1003 FORMAT' (15X, 'NONLINEAR ANALYSIS = 2'/) 

WRITE 6 ; 1000: WRITE 6 ; 1001: WRITE 6 j 1002: WRITE 6 ; 1003 
OUERY &NS " INPUT SELECTION » " 

; 1004 FORMAT' (/IX, 'SELECT DEFLECTION MAGNIFICATION FACTOR TO BE USED:') 

; 1005 FORMAT' (/15X, 'LOW (.10) =0') 

; 1006 FORMAT' (15X, 'MED (.20) =1') 

; 1007 FORMAT' (15X, 'HIGH (.50) = 2') 

; 1008 FORMAT' (15X, 'USER SELECTABLE = 3'/) 

WRITE 6 ;1004: WRITE 6 ; 1005: WRITE 6 ; 1006: WRITE 6 ; 1007 
WRITE 6 ; 1008 

OUERY &NM " INPUT SELECTION » " 

IF &NM-1 ; 10 ; 20 ; 30 
; 10 LET &XX=.l 
GOTO ; 100 
; 20 LET &XX=.2 
GOTO ; 100 

;30 IF &NM-2 ; 100 ;40 ; 50 
;40 LET &XX=.5 
GOTO ; 100 

;50 QUERY &XX " INPUT MAGNIFICATION FACTOR » " 

; 100 CONTINUE 

IF &NS-1 ; 60 ; 70 ; 80 

; 60 LET &NG=3 

GOTO ; 200 

; 70 LET &NG=4 

GOTO ; 200 

; 80 LET &NG=5 

; 200 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR PRINTING STRESS QUANTITY MENU 

# 

SUB MNU2 

J 1000 FORMAT' (/IX, 'QUANTITY MENU: (LINE LOAD) N-X = 1, N-Y = 2, N-XY = 3') 

J 1001 FORMAT' (IX, ' (LINE MOMENT) M-X = 4, M-Y = 5') 

J 1002 FORMAT' (IX, ' (AVG STRAIN) E-X = 11, E-Y = 12, E-XY = 13') 

; 1003 FORMAT' (IX, ' — > INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 
RETURN 
END 
# 

# SUBROUTINE TO PRINT LAYER STRESS MENU 

# 

SUB MNU3 

5 1000 FORMAT' (/IX, 'QUANTITY MENU: (LAYER STRESS) S-X = 1, S-Y = 2, S-XY = 4') 

» 1001 FORMAT' (IX, ' (LAYER STRAIN) E-X = 11, E-Y = 12, E-XY = 14') 

; 1002 FORMAT' (IX, ' — > INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ;1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
RETURN 
END 


# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN AVG LOADS AND STRAIN 

« 
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SUB CONI &NPL 



NONLINEAR - FINAL STEP 


DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT X R 
LET &X=0 
LET &Y=0 
LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ;500 ; 510 ;520 
: 500 SSET S,0,1 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH.HED,0, 1,2) 

SSET S,0,&MLS 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN 
GOTO ;999 

;2005 C pORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 * 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) >> 

CALL STAT &PAIN &ISEQ,&PAOT 
SSET S 0 &ISEQ 

;2006 FORMAT' (' SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ; 2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 

D LABEL 1 'N-X AVG LINE LOAD 

D LABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

D LABEL 4 'M-X AVG LINE MOMENT 

DLABEL 5 'M-Y AVG LINE MOMENT 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 ' E-XY AVG STRAIN 

; 25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER >> " 

IF &N3-99 ; 30 ; 40 ;30 
; 30 DFROMS &N3 , &N3 , MSH , 0 , NAME=BASE 
CONT &N3,0, 15,0, NAME=BASE 
CALL PLOT &NPL 
GOTO ; 25 
; 40 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN PLY STRESS AND STRAIN 

# 

SUB CON 2 &NPL 

DATA &IYES Y 

; 10 LEGEND ON RIGHT 

ORIENT X R 

LET &X=0 

LET &Y=0 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ;500 ;510 ;520 
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; 500 SSET S,0,1 
GOTO ; 999 

;510 LET &MLS = £ICFL(BRCH.HED,0, 1,2) 

SSET S, 0, &MLS 
GOTO ; 999 
; 520 CONTINUE 

ism 6 r °™J;( /1X -' PR0<: ' !4 " “ILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR. 

?A U Lrsm“pI™ N S E SoT IATE L0AD FACT0R FRACTI0N (0 T0 1 '°> » " 

SSET S,0,&ISEQ 
; 999 CONTINUE 

DLABEL 1 'S-X PLY STRESS 

DLABEL 2 'S-Y PLY STRESS 

DLABEL 4 ' S-XY PLY STRESS 

DLABEL 11 'E-X PLY STRAIN 

DLABEL 12 'E-Y PLY STRAIN 

DLABEL 14 'E-XY PLY STRAIN 

=r^ 1X >' LAYE « 0R PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLYM 
WRITE 6 ^1000 1X ’ " MATERIAL SYSTEM ERECTIONS (FIBER DIRECTIONS) ' /) L 

WRITE 6 ;1001 
;80 CONTINUE 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED » " 

CAlJ Y mS S " INPUT LAYER SURFACE: BOTTOM-1, MIDDLED, T0P=1 » " 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 90 ; 100 ;90 
;90 SSHELL 1 &NLN &NLS NAME=BASE 
DFROMS &N3 , &N3 , MSH , 0 , NAME=BASE 
1 3000 FORMAT' ('SKIN STRESS QUANTITY = '13 
WRITE !TIT2 ; 3000 &N3 &NLN &NLS 
TITLE2 !TIT2 

CONT &N3,0, 15,0,NAME=BASE 
CALL PLOT &NPL 

SPSifSTS 0 ,^ “of^oT 10 ” 41 - PLY C0NT0UR PL0TS? <™>» .. 

;95 GOTO ;80 
; 100 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN MARGIN OF SAFETY 

SUB C0N3 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT X R 
LET &X=0 
LET &Y=0 
LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ; 500 ; 510 ;520 
;500 SSET S,0,1 

GOTO E ?999 KIN M ' S ‘ AT ELEM QUAD P0INTS " LINEAR SOLUTION 

;510 LET &MLS = 2ICFL(BRCH.HED,0, 1,2) 

SSET S,0,&MLS 

TITLE2 'SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - FINAL STEP 


LAYER = '13,', SURFACE = '13; 
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GOTO ; 999 
; 520 CONTINUE 

'< 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR '/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) >> " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S , 0, &ISEQ 

! 2006 FORMAT' ('SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 

DLABEL 1 'MARGIN OF SAFETY 
FAIL ON 11 

SSHELL/MQMS=1 1 1 -1 NAME=BASE 
DFROME 1 1 MSH NAME=BASE 
CONT 1,0, 15,0,NAME=BASE 
CALL PLOT &NPL 
; 60 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF AVG LOADS & STRAIN 

# STIFFENERS 

# 

# 

SUB CONA &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ; 500 ;510 ; 520 
; 500 SSET S,0,1 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH . HED, 0, 1,2) 

SSET S,0, &MLS 
GOTO ; 999 
; 520 CONTINUE 

» 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ;2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 


SSET S,0,&ISEQ 
;999 CONTINUE 

DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

; 25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER >> " 

IF &N3-99 ; 30 ; 40 ; 40 A-283 


;30 QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

; 3000 FORMAT' ('STIFFENER AVG LINE LOAD OR STRAIN - STIFF. N0.= '13) 



WRITE !TIT2 ;3000 &NS 
TITLE2 !TIT2 

DFROMS &N3 , &N3 , MSH , 0 , MSET=&NS 
CONT &N3,0, 15,0,MSET=&NS 
CALL PLOT &NPL 
GOTO ; 25 
;40 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF LAYER STRESS & STRAIN 

# STIFFENERS 

# 

SUB CONS &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 
GOTO ; 999 

; 510 LET &MLS = UCFL(BRCH.HED,0,1,2) 

SSET S,0,&MLS 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL ST AT &PAIN &ISEQ, &PAOT 


SSET S,0,&ISEQ 
; 999 CONTINUE 
; 70 CONTINUE 

DLABEL 1 'S-X PLY STRESS 

DLABEL 2 ' S-Y PLY STRESS 

DLABEL 4 ' S-XY PLY STRESS 

DLABEL 11 'E-X PLY STRAIN 

DLABEL 12 'E-Y PLY STRAIN 

DLABEL 14 'E-XY PLY STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 

; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
; 80 CONTINUE 

QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED » " 

QUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0, T0P=1 » " 

CALL MNU3 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ;90 ;100 ; 90 
; 90 SSHELL 1 &NLN &NLS MSET=&NS 
DFROMS &N3 , &N3 , MSH , 0 , MSET=&NS 

; 3000 FORMAT' ('STIFF N0.= '13,', STRESS QUAN= '13,', LAYER= '13', SURF- '13) 
WRITE !TIT2 ;3000 &NS &N3 &NLN &NLS 
TITLE2 !TIT2 

CONT &N3,0, 15,0,MSET=&NS 
CALL PLOT &NPL 
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QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS?(Y/N)» " 

IF &N1-&IYES ; 100 ;95 ; 100 
; 95 GOTO ;80 
; 100 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING CONTOUR PLOTS OF MARGIN OF SAFETY 

# STIFFENERS 

# 

SUB C0N6 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET &X=1. 

LET &Y=-1. 

LET &Z=2. 

CALL VIEW &X &Y S.Z 
VIEUPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ;500 ; 510 ; 520 
; 500 SSET S,0,1 
GOTO ;999 

; 510 LET &MLS = %ICFL( BRCH . HED, 0 ,1,2) 

SSET S,0,&MLS 
GOTO ;999 
;520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.' 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ.&PAOT 
SSET S,0, &ISEQ 
; 999 CONTINUE 

DLABEL 1 'MARGIN OF SAFETY 
FAIL ON 11 

OUERY &NS "INPUT STIFFENER NUMBER( ALL=10) >> " 

; 3000 FORMAT' ('AML MARGIN OF SAFETY - STIFF. N0.= '13) 

WRITE !TIT2 ;3000 &NS 
TITLE2 !TIT2 

SSHELL/MQMS=1 11-1 MSET=&NS 
DFROME 1 1 MSH MSET=&NS 
CONT 1,0, 15 ,0, MSET=&NS 
CALL PLOT &NPL 
; 60 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE FOR GENERATING MAX-MIN SUMMARY TABLES 

# FOR THE SKIN PANEL AND STIFFENERS AVG LAMINATE LOADS & STRAINS 

# 

SUB SUM1 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ; 40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 
IF &N2-&IYES ; 40 ; 30 ; 40 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 !OUT 
UNIT 8 
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;40 CONTINUE 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ;520 
; 500 SSET S,0,1 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = £ICFL(BRCH.HED,0, 1,2) 

SSET S,0,&MLS 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - FINAL STEP 
GOTO ; 999 
;520 CONTINUE 

* 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR '/) 

WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S,0,&ISEQ 

* 2006 FORMAT' ('SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5 2) 

WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 
PRINT OFF, 0, LIST 

SLABEL 1 'N-X LINE LOAD 

SLABEL 2 'N-Y LINE LOAD 

SLABEL 3 'N-XY LINE LOAD 

SLABEL 4 'M-X MOMENT LOAD 

SLABEL 5 'M-Y MOMENT LOAD 

SLABEL 11 'E-X AVG STRAIN 

SLABEL 12 'E-Y AVG STRAIN 

SLABEL 13 'E-XY AVG STRAIN 

DLABEL 1 'N-X AVG LINE LOAD 

D LABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

SPRINT 8,1,2,3,4,5,11,12, 13 , 0,NAME=BASE 
IF &IF1 ; 50 ; 50 ; 60 

;50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 QUERY &NS "INPUT STIFFENER NUMBER (ALL= 10) » " 

J 3000 FORMAT' ('AVG LINE LOAD OR STRAIN AT INTEG PTS. - STIFF. N0.= '13) 

WRITE !TIT2 ;3000 &NS 
TITLE2 !TIT2 

SPRINT 8,1,2,3,4,5,11,12,13,0, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

;80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLES OF PLY STRESS AND STRAIN 

# 

SUB SUM2 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ;40 ; 20 ; 40 

! 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE’(Y/N)>> " 

IF &N2-&IYES ; 40 ; 30 ; 40 

5 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1 = 1 A-286 

OPEN 8 !OUT 
UNIT 8 


; 40 CONTINUE 
CALL LMNU 

QUERY &NS ” INPUT SELECTION » " 

IF &NS-1 ; 500 ;510 ; 520 
; 500 SSET S,0,1 

TITLE2 'SKIN PANEL PLY STRESS SUMMARY - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = 2ICFL(BRCH . HED,0, 1 , 2 ) 

SSET S,0, &MLS 

TITLE2 'SKIN PANEL PLY STRESS SUMMARY - NONLINEAR - FINAL STEP 
GOTO ;999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,6PA0T 
SSET S,0,&ISEQ 

; 2006 FORMAT' ('SKIN PANEL PLY STRESS SUMMARY - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ; 2006 &PAOT 


TITLE2 !TIT2 
; 999 CONTINUE 
PRINT OFF, 0, LIST 
SLABEL 1 'S-X PLY STRESS 

SLABEL 2 'S-Y PLY STRESS 

SLABEL 4 'S-XY PLY STRESS 

SLABEL 11 'E-X PLY STRAIN 

SLABEL 12 'E-Y PLY STRAIN 

SLABEL 14 'E-XY PLY STRAIN 

D LABEL 1 'S-X PLY STRESS 

DLABEL 2 'S-Y PLY STRESS 

D LABEL 4 'S-XY PLY STRESS 

DLABEL 11 'E-X PLY STRAIN 

DLABEL 12 'E-Y PLY STRAIN 

DLABEL 14 'E-XY PLY STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE GIVEN IN THE LOCAL PLY') 

; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 

PSHELL 6,1,2,4,11,12,14,1,0,0,1,0, 1 ,NAME=BASE 
IF &IF1 ; 50 ; 50 ; 60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 60 QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

; 3000 FORMAT' ('PLY STRESS SUMMARY AT ELEM QUAD POINTS - STIFF. N0.= '13) 

WRITE !TIT2 ;3000 &NS 
TITLE2 !TIT2 
; 60 TITLE2 'STIFFENER 

PSHELL 6,1,2,4,11,12,14,1,0,0,1,0,1, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLE OF MARGINS OF SAFETY 

# 

SUB SUM3 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ;40 ; 20 ;40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " A-287 

IF &N2-&IYES ;40 ; 30 ;40 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 



LET &IF1=1 
OPEN 8 !OUT 
UNIT 8 

; 40 CONTINUE 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ; 500 ;510 ; 520 
; 500 SSET S,0,1 

TITLE2 'SKIN MARGIN OF SAFETY SUMMARY - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH.HED,0, 1 , 2 ) 

SSET S,0, &MLS 

TITLE2 'SKIN MARGIN OF SAFETY SUMMARY - NONLINEAR - FINAL STEP 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/ 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN 6.ISEQ.&PA0T 
SSET S, 0, &ISEQ 

; 2006 FORMAT' ('SKIN MARGIN OF SAFETY SUMMARY - NONLINEAR - LOAD FACTOR -'F5. 

WRITE !TIT2 ;2006 &PAOT 

TITLE2 !TIT2 

;999 CONTINUE 

FAIL ON 11 

PRINT OFF, 0, LI ST 

PSHELL 2,11,12,1,0,0,1,1,1, NAME=BASE 
IF &IF1 ; 50 ; 50 ;60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 60 QUERY &NS "INPUT STIFFENER NUMBER(ALL=10) » " 

; 3000 FORMAT' ('AML MARGIN OF SAFETY AT ELEM QUAD POINTS - STIFF. N0.= '13) 
WRITE !TIT2 ; 3000 &NS 
TITLE2 !TIT2 

PSHELL 2,11,12,1,0,0,1,1,1, MSET=&NS 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

;80 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE FOR TRANSFORMING METAPLOT FILES TO DEVICE PLOT FILES 

# 

SUB HC &NPL 

IF &NPL ; 100 ; 100 ; 10 

; 10 DEVICE OPEN <SHCD> 

; 1000 FORMAT' (/IX, 'SAVED PLOTS ARE NOV BEING TRANSFORMED TO PLOT FILES') 

; 1001 FORMAT' (IX, 'PLEASE WAIT UNTIL COMPLETION IS INDICATED.') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
METAPLOT 

; 1000 FORMAT' (/IX, 'PLOT FILE TRANSFORMATION COMPLETED'//) 

WRITE 6 ; 1000 

; 100 CONTINUE 

RETURN 

END 

# 

# 

# THE FOLLOWING PROCEDURE DISPLAYS A MENU FOR SELECTION OF 

# POST PROCESSING FUNCTIONS 

# 

SUB MENU 
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1000 

1001 

1002 

1003 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 

; 1014 
WRITE 
WRITE 
WRITE 
WRITE 
RETURN 
END 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
6 ; 1000 
6 ; 1005 
6 ; 1008 
6 ; 1012 


(//IX, 'MENU FOR PLOTS AND SUMMARY TABLES:'/) 
(10X,'l) BASIC GEOMETRY PLOT') 

GEOMETRY PLOT WITH LOAD VECTORS SHOWN' ) 
DEFLECTED GEOMETRY PLOT') 

CONTOUR PLOT OF SKIN AVG LAMINATE LOADS 


( 10X, ' 2 ) 
(10X, '3) 
( 10X, ' A) 
( 10X, ' 5 ) 
(10X, '6) 
( 10X, ' 7 ) 
(10X, '8) 
(10X, '9) 
(9X, ' 10) 
(9X, ' 11 ) 
(9X, '12) 
(9X, '99) 
: WRITE 6 
: WRITE 6 
: WRITE 6 
: WRITE 6 


CONTOUR 

CONTOUR 

CONTOUR 

CONTOUR 

CONTOUR 

SUMMARY 

SUMMARY 

SUMMARY 


OR STRAINS' ) 
PLOT OF SKIN PLY STRESS OR STRAIN' ) 

PLOT OF SKIN MARGIN OF SAFETY') 

PLOT OF STIFF. AVG LAMINATE LOADS OR STRAINS') 
PLOT OF STIFF. PLY STRESS OR STRAIN') 

PLOT OF STIFF. MARGIN OF SAFETY') 

TABLE OF AVG LAMINATE LOADS AND STRAINS') 


TABLE OF PLY STRESSES AND STRAINS') 
TABLE OF LAMINATE MARGINS OF SAFETY'/) 
TERMINATE POST PROCESSING SESSION'/) 

; 1001: WRITE 6 ; 1002: WRITE 6 ;1003 
; 1006: WRITE 6 ; 1007 
; 1009 : WRITE 6 ;1010:WRITE 6 ; 1011 
: 1013 : WRITE 6 ; 1014 


# 

#MENU SELECTION SUBROUTINE 
# 

SUB SEL2 &NPL &IMN 
IF &IMN-2 ; 10 ; 20 ; 30 
; 10 CALL GE01 &NPL 
GOTO ; 500 
; 20 CALL GE02 &NPL 
GOTO ;500 

; 30 IF &IMN-4 ; 40 ; 50 ; 60 
;40 CALL DEFL &NG &XX 
IF &NG-4 ; 41 ; 42 ; 43 
;41 CALL GE03 &XX &NPL 
GOTO ;500 

;42 CALL GE04 &XX &NPL 
GOTO ; 500 

; 43 CALL GE05 &XX &NPL 
GOTO ;500 
; 50 CALL CONI &NPL 
GOTO ; 500 

; 60 IF &IMN-6 ; 70 ;80 ; 90 
; 70 CALL C0N2 &NPL 
GOTO ; 500 
;80 CALL C0N3 &NPL 
GOTO ; 500 

; 90 IF &IMN-8 ; 100 ;500 ;500 
; 100 CALL C0N4 &NPL 
; 500 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MENU SELECTION AND REDIRECTION 

# 

SUB SEL1 &IF1 &NPL 
; 5 CONTINUE 
CALL MENU 

QUERY &IMN "INPUT NUMBER OF MENU ITEM DESIRED » " 
CALL SEL2 &NPL &IMN 
IF &IMN-99 ; 10 ;200 ; 10 
; 10 IF &IMN-8 ;5 ;120 ; 120 
; 120 IF &IMN-9 ; 130 ;140 ;150 
; 130 CALL C0N5 &NPL 
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GOTO ;5 

; 140 CALL CON6 &NPL 
GOTO ; 5 

> 150 IF &IMN-11 ; 160 ; 170 ; 180 
; 160 CALL SUM1 &IF1 
GOTO ; 5 

; 170 CALL SUM2 &IF1 
GOTO ; 5 

; 180 CALL SUM3 &IF1 
GOTO ; 5 
; 200 CONTINUE 
RETURN 
END 
# 

# MAIN PROGRAM SUBROUTINE DRIVER 

# 

CALL SEL1 &IF1 &NPL 
CALL HC &NPL 
CLOSE 8 

? 1000 FORMAT' (///IX, 'THIS COMPLETES THE POST PROCESSING SESSION.'/) 

J 1001 FORMAT' (IX, 'ANY HARD COPY PLOTS GENERATED HERE WILL RESIDE ON') 
j 1002 FORMAT' (IX, 'FILES IN THE WORKING DIRECTORY, USE NORMAL SUBMITTAL') 
; 1003 FORMAT' (IX, 'PROCEDURES TO ACTUALLY PRINT THEM.'//) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 
STOP 
SEND: 

$! End of PP.COM 
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A3. 4. 3 TUBULAR TRUSS CORE PANEL MODULE # 3 
POST PROCESSING DRIVER 


$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ ST ART: 

$ V : = 

$U "" 

$W " 

$V " 

$V " 

$W " 

$V "" 

$V " 

$V " 

$V "" 

$V "" 

$W " " 

SINQUIRE DB "What is 
SASSIGN 'DB' FIL002 
$W "" 

"Which module was used to create this data base?" 
" 1) FLAT RECTANGULAR STRINGER STIFFENED PANEL 

" 2) CURVED RECTANGULAR STRINGER STIFFENED PANEL 

" 3) FLAT RECTANGULAR TUBULAR PANEL" 

" 4) GEODESICALLY STIFFENED PANEL " 


################################################################## 

DIALAMATIC 

THIS PROCEDURE IS DESIGNED TO PERFORM 
POST PROCESSING FOR MODELS GENERATED WITH 
DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 

VAX VERSION VI. 3 2-28-92 

AUTHOR: WAYNE M. BROWN LMSC 81-12 
PHONE: (408) 756-1137 

WRITE SYSSOUTPUT 

Advanced Composites Structural Concept" 
and Materials Technologies" 

Automated DIAL finite element analysis" 

POST PROCESSING MODULE" 

VAX VERSION 1.3 " 

February 1992 " 


the name of the DIAL data base file?" 


$W 
$W 
$W 
$W 
$W 
$W 

SINQUIRE MODULE " NUMBER?» 
$W M M 

$IF MODULE . EQS. 

$IF MODULE .EQS. 

$IF MODULE .EQS. 


"1" THEN GOTO MODI 
"2" THEN GOTO M0D2 
"3" THEN GOTO M0D3 
$IF MODULE .EQS. "4" THEN GOTO M0D2 

SMOD1 : , , . . „ 

$W "This post-processor will only handle the tubular core panel! 

$GOTO END 

$MOD2 : , , .... 

$W "This post-processor will only handle the tubular core panel! 

$GOTO END 

$! 

SMOD3: 

$ t THE FOLLOWING COMMAND MAY NEED TO BE MODIFIED TO RUN 
$! THE DIAL SCOPE PROCESSOR IF THE EQUIVALENT NAME IS NOT 
$! ALREADY SETUP IN THE USER LOGIN.COM 
$! EXAMPLE: CHANGE TO $RUN DIAL$DIR: SCOPE 
$ ! 

SSCOPE 
START -1 
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################## ########################################### 

# 

# THIS SCOPE PROCEDURE IS FOR MODULE 3 

# TUBULAR FLAT PANEL 


SET # SYNTAX # ON ################################################ 

# 


LET &IF1=0 
DATA &IYES Y 
DATA &NB B 


* 1000 FORMAT' (IX, 'GIVE A SHORT NAME FOR THIS ANALYSIS') 

WRITE 6 ; 1000 

QUERY ! NAME " PRECEDE MULTIPLE WORDS WITH APOSTROPHE » " 

QUERY ! DEV "WHAT TYPE OF TERMINAL? (TEK.SEL.RETR.VT24) » " 

DEFINE SHCD VERS 

QUERY &NBW "COLOR OR BLACK AND WHITE ? (C/B) » " 

IF &NBW-&NB ; 91 , ;90, ; 91 
J 90 DSPECT SET 0 WHITE 
DSPF.CT SET 1 BLACK 
; 91 CONTINUE 

QUERY &NHC "WILL YOU WANT TO PLOT HARD COPIES 7 (Y/N) » " 

IF &NHC-&IYES ; 30, ; 10, ; 30 

;10 QUERY !HCD "INPUT HARD COPY DEVICE(VERS.QMS) » " 

DEFINE SHCD ! HCD ' 

1000 FORMAT' (/IX, 'WHAT OUTPUT OPTION WOULD YOU LIKE?') 

1001 FORMAT' (IX,' 1) SCREEN PLOTS ONLY, NO HARD COPIES') 

1002 FORMAT' (IX,' 2) ONLY HARD COPY PLOTS') 

1003 FORMAT' (IX,' 3) SCREEN PLOTS WITH HARD COPY PLOTS OPTIONAL') 

WRITE 6 j 1000 

WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 

QUERY &N1 "OPTION NUMBER? >> " 

IF &N1-2 ; 30, ; 40, ; 50 
; 30 DEVICE OPEN !DEV 
LET &NPL=0 
GOTO ; 60 

; 40 DEVICE OPEN !HCD 
LET &NPL=0 


GOTO ; 60 

; 50 DEVICE OPEN !DEV 
LET &NPL=1‘ 

META OPEN SEL 
; 60 CONTINUE 
TITLE ON 
TITLE1 !NAME 
# 

# SUBROUTINE FOR CREATING METAFILE PLOTS ON DEMAND 

# 


SUB PLOT &NPL 

DATA &IYES Y 

IF &NPL ; 100 ; 100 ; 10 

IF 0 &NX E &IYES X ;100 ^20 ^00 A HARD C ° PY PL ° T ° F ™ E LAST PL0T? < Y/N > » 

;20 METASAVE 

; 100 CONTINUE 

RETURN 

END 


# 

# SUBROUTINE FOR SETTING VIEWPOINT 

# 


n 
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SUB VIEW &X,&Y,&Z 
DATA &IYES Y 

; 1000 FORMAT' (/IX, 'CURRENT VIEWPOINT IS: X ='F5.1,' Y ='F5.1,' Z ='F5.1,/) 
; 1001 FORMAT' (/IX, 'VIEWING DIRECTION IS FROM THE VIEWPOINT COORDINATES TO'/) 
; 1002 FORMAT' (IX, 'THE ORIGIN, ACTUAL DISTANCE BETWEEN THE POINTS IS NOT USED 
WRITE 6 ; 1000 &X,&Y,&Z 

; 10 OUERY &NX "DO YOU WISH TO CHANGE THE VIEWPOINT FOR THIS PLOT?(Y/N) »" 

IF &NX-&IYES ; 100 ; 20 ; 100 
; 20 WRITE 6 ; 1001: WRITE 6 ; 1002 

QUERY &X "INPUT NEW VIEWPOINT X COORD. (INCLUDE DECIMAL POINT) » " 

OUERY &Y "INPUT NEW VIEWPOINT Y COORD. ( INCLUDE DECIMAL POINT) » " 

QUERY &Z "INPUT NEW VIEWPOINT Z COORD. ( INCLUDE DECIMAL POINT) » " 

WRITE 6 ; 1000 &X,&Y,&Z 
; 100 RETURN 
END 
# 

# SUBROUTINE TO PRINT MESH QUERY FOR PLOTTING 

# 

SUB PRNT 

; 1000 FORMAT' (/IX, 'PICK ONE OF THE FOLLOWING LABEL OPTIONS:') 

; 1001 FORMAT' (/15X, 'NO NODE OR ELEMENT NUMBERING =0') 

; 1002 FORMAT' (15X, 'NODE NUMBERING ONLY = 1') 

; 1003 FORMAT' (15X, 'ELEMENT NUMBERING ONLY = 2') 

; 1004 FORMAT' (15X, 'NODE AND ELEMENT NUMBERING = 3'/) 

WRITE 6 ; 1000: WRITE 6 ; 1001: WRITE 6 ; 1002: WRITE 6 ; 1003: WRITE 6 ;1004 
RETURN 
END 
# 

# SUBROUTINE FOR PRINTING LOAD SELECTION MENU 

# 

SUB LMNU 

; 2000 FORMAT' (//IX, 'SELECT LOAD FACTOR LEVEL TO BE PLOTTED:') 

; 2001 FORMAT' (15X, 'LINEAR SOLUTION =0') 

; 2002 FORMAT' (15X, 'MAX LOAD STEP ATTAINED = 1') 

; 2003 FORMAT' (15X, 'INTERMEDIATE LOAD FACTOR = 2'/) 

WRITE 6 ; 2000: WRITE 6 ; 2001: WRITE 6 ; 2002: WRITE 6 ; 2003 
RETURN 
END 
# 

# SUBROUTINE FOR SELECTING NONLINEAR LOAD STEP 

# 

sub STAT &pain &iseq,&paot 

i 

# Return the Solution Sequence number and Load Factor thta are 

# closest to a requested Load Factor. 

# 

# in &pain Requested Load Factor 

# 

# out &iseq Solution sequence number for output Load Factor 

# out &paot Solution Load Factor closest to Requested Load Factor 

i 

# Initialize Variables 
let &iseq=0 

let &paot=0.0 
let &is=0 
let &pa=0.0 
let &ismn=0 
let &pamn=0.0 

# 

let &ls tp = % i c f 1 ( PCT .HED.SOLV, 0,0,1) 
let &istp = 2icf 1(BRCH . HED,0, 1,2) 
let &nseq = %max(&lstp,&istp) 
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# 

do ;Ioop &is=l,&nseq 

let &ifn = Xi f 1(D. SV , 0 , & is ) 
let &pa = Xfafm(&ifn, 1) 
if &pa-&pain 1 , ; mach , ; f ind 
let &pamn = &pa 
let &ismn = &is 
;loop continue 

# Requested Load Factor is .gt. Final Solution Load Factor 
let &iseq - &is 

let &paot = &pa 
goto ;clos 
; f i nd continue 

# Find Solution Load Factor closest to Requested Load Factor 
let &pdmn = &pain-&pamn 

let &pdmx = &pa-&pain 
if &pdmn-&pdmx 1,1,; max 
let &iseq = &ismn 
let &paot = &pamn 
goto ;clos 
;max continue 

let &iseq = &is 
let &paot = &pa 
goto ;clos 
;mach continue 

# Solution Load Factor matches Requested Load Factor 
let &iseq = &is 

let &paot = &pa 

# 

;clos continue 

; HO format ' ( ' Analysis State set to Solution Sequence Number ',14) 

;111 format ' ( ' with Solution Load Factor ',F10.3) 

write 6, ; 110 &iseq 
wri te 6, ; 111 &paot 

# 

return 

end 

# 

# BASIC GEOM PLOT SUBROUTINE 

# 

SUB GE01 &NPL 
DATA &I YES Y 

; 999 FORMAT' (/IX, 'AFTER EACH PLOT IS GENERATED HIT A RETURN TO CONTINUE'/) 

WRITE 6 ; 999 

TITLE2 'GEOMETRY PLOT 

LEGEND OFF 

ORIENT Z U 

LET &X=1. 

LET &Y=-1 . 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 

; 2000 FORMAT' (/IX, ' PICK THE PARTS TO BE DISPLAYED:'/) 

« 


; 2001 FORMAT' (15X, 'ALL PARTS (SKINS + TUBES) = O') 

; 2002 FORMAT' (15X, 'TOP SKIN ONLY = 1') 

; 2003 FORMAT' (15X, 'BOTTOM SKIN ONLY = 2') 

» 2004 FORMAT' (15X, 'ALL TUBES (webs + Top & Bot. walls = 3') 

; 2005 FORMAT' (15X, 'Fillers only = 4') 

;2006 FORMAT' (15X, 'All tube webs only = 5'/) 

# 


WRITE 6 ; 2000 : WRITE 6 ; 2001 : WRITE 6 ;2002 : WRITE 6 ;2003 
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WRITE 6 ; 2004 : WRITE 6 ;2005 : WRITE 6 ;2006 
QUERY &N1 " INPUT OPTION >> " 

# 

IF &N1-3 1 ; 120 ; 120 
IF &N1-1 1 ; 110 ; 130 

MSET 20 INSERT ALL 
GOTO ; 200 

; 110 MSET 20 INSERT MSET=1 
GOTO ; 200 

; 130 MSET 20 INSERT MSET=3 
GOTO ; 200 
# 

; 120 IF &N1-4 1 ; 140 ; 150 
MSET 20 INSERT MSET=11 
GOTO ; 200 

; 140 MSET 20 INSERT MSET=4 
GOTO ; 200 

; 150 MSET 20 INSERT MSET=2 
# 

; 200 CONTINUE 

SCREEN VIRT -.9, .9, -.9, .9 

CALL PRNT 

QUERY &N1 " INPUT OPTION » " 

IF &N1-1 ; 10 ; 20 ; 30 

; 10 OVBEGI : OVGEOM 0,0,0,MSET=20:OVMESH MSET=20:OVGLOB:OVEND 
GOTO ;60 

; 20 OVBEGI : OVGEOM 0,0,0,MSET=20:0VMESH MSET=20 : OVGLOB 
0 VNODE 0 0 MSET=20 : OVEND 
GOTO ; 60 

; 30 IF &N1-2 ; 60 ; 40 ; 50 

; 40 OVBEGI: OVGEOM 0,0,0,MSET=20:OVMESH MSET=20 : OVGLOB 
OVELEM 0 0 MSET=20: OVEND 
GOTO ; 60 

;50 OVBEGI: OVGEOM 0 , 0 , 0 , MSET=20 : OVMESH MSET=20 : OVGLOB 
OVNODE 0 0 MSET=20: OVELEM 0 0 MSET=20 : OVEND 
;60 CONTINUE 
MSET 20 DELETE ALL 
CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT SHOWING LOAD VECTORS 

# 

SUB GE02 &NPL 
TITLE2 'LOAD PLOT 
LEGEND OFF 
ORIENT Z UP 
LET &X=1. 

LET &Y=-1. 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
DSET UL 0 1 
VECT 0 1 0. 

CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

I A-295 

SUB GEO 3 &XX &NPL 
DATA &IYES Y 


LEGEND OFF 
ORIENT Z UP 
LET &X=1. 

LET &Y=-1 . 

LET &Z=1 .5 

CALL VIEW &X &Y & Z 

VIEWPT &X &Y &Z 

TITLE2 'DEFLECTED GEOMETRY PLOT - LINEAR STRESS 
DSET D 0 1 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 130 ; 120 ;130 
; 120 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX 
OVMESH : OVGEOM 2 : LATT TYPE 2 : OVMESH : OVGLOB : OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 
; 130 CONTINUE 

OVBEGI : SCREEN VIRT - . 9, . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX: OVGLOB 
OVMESH: OVEND 
CALL PLOT &NPL 
; 140 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED BUCKLED SHAPE 

# 

SUB GE04 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 
# 

QUERY &NMOD " HOW MANY MODES WERE DETERMINED? » " 
let &IM0D=1 
; 888 CONTINUE 

; 200 FORMAT' (' BIFURCATION BUCKLING - MODE SHAPE No. ',12) 

WRITE !TIT2 ; 200 &IMOD 
TITLE2 !TIT2 
DSET BUCK 0 &IMOD 
# 

ORIENT Z UP 
LET &X=1. 

LET AY-r-1 . 

LET &Z=2 . - 

CALL VIEW &X &Y &Z 

VIEWPT &X &Y &Z 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 170 ;160 ; 1 70 
; 160 CONTINUE 

OVBEGI : SCREEN VIRT -.9, .9, -.9, .9: OVGEOM : OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2: LATT TYPE 2: OVMESH: OVGLOB: OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 180 
; 170 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 &XX: OVGLOB 
OVMESH: OVEND 
CALL PLOT &NPL 
# 

; 180 CONTINUE 

let &IM0D=&IM0D+1 
IF &IM0D-&NM0D ; 111 ; 111 ; 222 

? HI QUERY &NX " DO YOU WANT TO PLOT THE NEXT MODE SHAPE? (Y/N) » " 


A-296 


IF &NX-&IYES ; 222 ;888 ; 222 

; 222 CONTINUE 
RETURN 
END 

# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE05 &XX &NPL 
DATA &IYES Y 
LEGEND OFF 
ORIENT Z U 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2 . 

CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
IF &NS- 1 ; 10 ; 20 ; 30 
; 10 DSET D, 0, 1 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - LINEAR SOLUTION 
GOTO ; 100 

; 20 LET &MLS = UCFL(BRCH.HED,0, 1 , 2) 

DSET D,0, &MLS 

TITLE2 'DEFLECTED GEOM PLOT - NONLINEAR ANALYSIS - FINAL STEP 
GOTO ; 100 
; 30 CONTINUE 

; 1005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 1005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO. 1.0) » " 

CALL STAT &PAIN &ISEQ, &PAOT 
DSET D, 0, &ISEQ 

; 2000 FORMAT' ( 'DEFLECTED GEOM - NONLINEAR ANALYSIS - LOAD FACTOR ='F5.2) 

WRITE !TIT2 ;2000 &PAOT 
TITLE2 !TIT2 
; 100 CONTINUE 

QUERY S.NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)» " 

IF &NS-&IYES ; 130 ;120 ; 130 
; 120 CONTINUE 

OVBEGI: SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM: OVGEOM 1 1 &XX 
OVMESH: OVGEOM 2 : LATT TYPE 2 : OVMESH : OVGLOB : OVEND 
CALL PLOT &NPL 
LATT TYPE 0 
GOTO ; 140 
; 130 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 6,XX:0VGL0B 

OVMESH : OVEND 

CALL PLOT &NPL 

; 140 CONTINUE 

RETURN 


END 

# 

# SUBROUTINE FOR PRINTING STRESS QUANTITY MENU 

# 

SUB MNU2 

; 1000 FORMAT' (/IX, 'QUANTITY MENU: (LINE LOAD) N-X = 1, N-Y = 2, N-XY 
; 1001 FORMAT' (IX, ' (LINE MOMENT) M-X = 4, M-Y = 5') 

; 1002 FORMAT' (IX, ' (AVG STRAIN) E-X = 11, E-Y = 12, E-XY 

; 1003 FORMAT' (IX, ' --> INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 


WRITE 6 


1002 


3') 

13') 
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WRITE 6 ; 1003 
RETURN 
END 
# 

# SUBROUTINE TO PRINT LAYER STRESS MENU 

# 

SUB MNU3 

; 1000 FORMAT' (/IX, 'QUANTITY MENU: (LAYER STRESS) S-X = 1, S-Y = 2, S-XY = 4') 

; 1001 FORMAT' (IX, ' (LAYER STRAIN) E-X = 11, E-Y = 12, E-XY = 14') 

; 1002 FORMAT' (IX, ' --> INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN AVG LOADS AND STRAIN 

# 

SUB CONI &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Y UP 
LET &X=0. 

LET &Y=0. 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ; 500 ;510 ;520 
;500 SSET S,0,1 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - LINEAR SOLUTION 
GOTO ; 999 

;510 LET &MLS = %ICFL(BRCH.HED,0, 1 , 2) 

SSET S,0, &MLS 

TITLE2 'SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - FINAL STEP 
GOTO ; 999 
;520 CONTINUE 

; 2005 FORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 

WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ, &PAOT 
SSET S , 0 , &ISEQ 

> 2006 FORMAT' ( 'SKIN AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5.2) 

WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 
; 999 CONTINUE 

DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL 4 'M-X AVG LINE MOMENT 

DLABEL 5 'M-Y AVG LINE MOMENT 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

; 25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 30 ; 70 ; 30 

; 30 CONTINUE A-298 

QUERY &N1 "TOP OR BOTTOM FACE SHEET? (TOP=0,BOTTOM=1)» " 

IF &N1 ; 70 ; 40 ;50 


; 40 DFROMS &N3,{,N3,MSH,0,MSET=1 

OVBEGI : OVGEOM 0 , 0 , 0 , MSET=1 : OVCONT &N3 , 0 , 10 , 0 , MSET=1 
OVANNO 0 "TOP SHEET" :OVMESH MSET = 1 : OVGLOB : OVEND 
GOTO ; 60 

; 50 DFROMS &N3, &N3 , MSH , 0 , MSET=3 

OVBEGI : OVGEOM 0, 0 , 0 , MSET=3 : OVCONT &N3 , 0 , 10 , 0 , MSET=3 
OVANNO 0 "BOTTOM SHEET" : OVMESH MSET=3 : OVGLOB : OVEND 
; 60 CALL PLOT &NPL 
GOTO ; 25 
; 70 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN PLY STRESS AND STRAIN 

# 

SUB C0N2 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Y U 
LET &X=0. 

LET &Y=0. 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION » " 

IF &NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 
#LET !ANO=' LINEAR ANALYSIS 
GOTO ; 999 

; 510 LET &MLS = %ICFL(BRCH . HED, 0 ,1,2) 

SSET S,0,&MLS 
#LET &PAIN=100 . 

#CALL STAT &PAIN &ISEQ , &PAOT 
# ; 2 1 00 FORMAT' ('LOAD STEP=',F5.2) 

# WRITE ! ANO ; 2100 &PAOT 
GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.' 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 
SSET S,0,&ISEQ 

# ; 2 101 FORMAT' ('LOAD STEP=',F5.2) 

# WRITE ! ANO ; 2101 &PAOT 
; 999 CONTINUE 


DLABEL 

1 'S-X PLY 

STRESS 

DLABEL 

2 'S-Y PLY 

STRESS 

DLABEL 

4 'S-XY PLY 

STRESS 

DLABEL 

11 'E-X PLY 

STRAIN 

DLABEL 

12 'E-Y PLY 

STRAIN 

DLABEL 

14 'E-XY PLY 

STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY' 
; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
;80 CONTINUE 

QUERY &N1 "INPUT TOP OR BOTTOM FACE SHEET(T0P=0, B0TT0M=1) » " 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED » " 

OUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0, T0P=1 » " 

CALL MNU3 

OUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 
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IF &N3-99 ; 90 ;200 ; 90 
; 90 CONTI NOE 
IF &N1 ; 200 ; 100 ; 1 10 
; 100 CONTINUE 

; 2000 FORMAT' ('TOP F.S. STRESS QUANTITY = '13,', LAYER = '13,', SURFACE = '13) 
WRITE !TIT2 ;2000 &N3 &NLN &NLS 
TITLF.2 !TIT2 

SSHELL 1 &NLN &NLS MSET=1 
DFROMS &N3 , &N3 , MSH , 0, MSET=1 

OVBECI : OVGEOM 0,0,0,MSET=1 :OVCONT &N3 , 0 , 10, 0 , MSET=1 
OVMESH MSET=1 : OVGLOB: OVEND 
GOTO ; 120 
; 1 10 CONTINUE 

;3000 FORMAT' ('BOTTOM F.S. STRESS QUANT. = '13,', LAYER = '13,', SURFACE = '13) 
WRITE !TIT2 ; 3000 &N3 &NLN 6.NLS 
TITLE2 !TIT2 

SSHELL 1 &NLN &NLS MSET=3 
DFROMS &N3, &N3,MSH,0,MSET=3 

OVBEGI: OVGEOM 0 , 0 , 0 , MSET=3 : OVCONT &N3,0, 10,0,MSET=3 
OVMESH MSET=3: OVGLOB: OVEND 
; 120 CALL PLOT &NPL 

QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS? (Y/N)» " 

IF &N1-&IYES ; 200 ; 130 ; 200 
; 130 GOTO ;80 
; 200 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN MARGIN OF SAFETY 

# 

SUB CON 3 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Y UP 
LET AX=0. 

LET f»Y=0 . 

LET &Z=1. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF f.NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 

TITLE2 'SKIN M.S. AT ELEM QUAD POINTS - LINEAR SOLUTION 
GOTO ; 999 

; 510 LET &MLS = 2ICFL(BRCH. HED, 0 , 1 , 2 ) 

SSET S, 0 , &MLS 

TIT1.E2 'SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - FINAL STEP 
GOTO ;999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL ST AT &PAIN &ISEQ,&PAOT 
SSET S,0,&ISEQ 

; 2006 FORMAT' ('SKIN M.S. AT ELEM QUAD POINTS - NONLINEAR - LOAD FACTOR ='F5.2) 
WRITE !TIT2 ;2006 &PAOT 
TITLE2 !TIT2 

; 999 CONTINUE . . 

DLABEL 1 'MARGIN OF SAFETY A ' v 

FAIL ON 11 

QUERY &N1 "TOP OR BOTTOM FACE SHEET? (TOP=0,BOTTOM=1)» " 



IF MU ; 70 ; 40 ;50 
; 40 SSHELL/MQMS=1 1 1 -1 MSET=1 
DFROME 1 1 MSH MSET=1 

OVBEGI : OVGEOM 0 , 0 , 0 , MSET=1 : OVCONT 1 , 0 , 10,0 , MSET=1 
OVANNO 0 "TOP SHEET" :0VMESH MSET=1 : OVGLOB : OVEND 
GOTO ; 60 

; 50 SSHELL/MQMS=1 1 1 -1 MSET=3 
DFROME 1 1 MSH MSET=3 

OVBEGI: OVGEOM 0 , 0 , 0 , MSET=3 : OVCONT 1 , 0 , 10 , 0 , MSET=3 
OVANNO 0 "BOTTOM SHEET" : OVMESH MSET=3 : OVGLOB : OVEND 
; 60 CALL PLOT &NPL 
; 70 CONTINUE 
FAIL OFF 11 
RETURN 
END 
# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF AVG LOADS & STRAIN 

# TUBES 

# 

SUB C0N4 &NPL &NTBW &NPRT 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET 6X=1 . 

LET &Y=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y WL 
VIEVPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS- 1 ; 500 ; 510 ; 520 
;500 SSET S,0,1 
# 

; 101 FORMAT' ( 'Tube ' ,12, '-',11,' AVG L . LOAD OR STRAIN - lin. ana.') 

WRITE ! ST1 ; 101 &NTBW &NPRT 
TITLE2 ! ST1 
# 

GOTO ; 999 

; 510 LET &MLS = £ICFL(BRCH . HED, 0 ,1,2) 

SSET S , 0 , &MLS 
# 

; 10? FORMAT' ( 'Tube ' , 12 , ' - ' , 1 1 , ' AVG L. LOAD/STRAIN - final step ') 

WRITE ! ST2 ; 102 &NTBW &NPRT 
TITLE2 ! ST2 
# 

GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.' 
WRITE 6 ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT &PAIN &ISEQ,&PAOT 
SSET S,0,&ISEQ 
* 

; 2006 FORMAT' ( 'Tube ' ,12, ' ,11, ' AVG L. LOAD /STRAIN, L. fac.= ',F5.2) 

WRITE !TIT2 ; 2006 &NTBW &NPRT &PAOT 
TITLE2 !TIT2 
# 

;999 CONTINUE 

#TITLE2 'TUBE AVG LINE LOAD OR STRAIN 
# 

DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 


A- 301 



DLABEL 3 'N-XY AVG LINE LOAD 
DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

; 25 CONTINUE 
CALL MNU2 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 30 ; 40 ; 30 

;3Q DFROMS &N3 , &N3 , MSH , 0 , MSET=12 

CONT &N3, 0,10,0, MSET=12 

CALL PLOT &NPL 

GOTO ; 25 

;40 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF LAYER STRESS & STRAIN 

# TUBES 

# 

SUB C0N5 &NPL &NTBW &NPRT 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z UP 
LET &X=1. 

LET &Y=-1 . 

LET &Z=2. 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF &NS-1 ; 500 ; 510 ; 520 
;500 SSET S,0,1 
LET !ANO=' LINEAR SOLUTION 
GOTO ;999 

;510 LET &MLS = £ICFL(BRCH . HED,0, 1,2) 

SSET S , 0 , &MLS 

LET ! ANO= 'FINAL LOAD STEP 
GOTO ; 999 
;520 CONTINUE 

WRITE r^; (/1X ’' PR0GRAM WILL FIN ° L ° AD STEP CL0SEST T0 SELECTED FACTOR.'/) 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT £PAIN &ISEQ,&PAOT 
SSET S,0,&ISEQ 

; 2100 FORMAT' ( 'LOAD STEP=',F5.2) 

WRITE !ANO ;2000 &PAOT 


; 999 CONTINUE 
; 70 CONTINUE 

DLABEL 1 'S-X PLY STRESS 
DLABEL 2 'S-Y PLY STRESS 
DLABEL 4 ' S-XY PLY STRESS 
DLABEL 11 'E-X PLY STRAIN 
DLABEL 12 'E-Y PLY STRAIN 
DLABEL 14 'E-XY PLY STRAIN 


;1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 

;1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
; 80 CONTINUE 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED >> " A-302 

QUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0 , T0P=1 » » 

CALL MNU3 


QUERY SN3 "INPUT DESIRED QUANTITY NUMBER » " 

IF SN3-99 ; 90 ; 100 ; 90 
;90 SSHELL 1 SNLN SNLS MSET=12 
DFROMS SN3 , SN3 , MSH , 0, MSET=12 
# 

; 3000 FORMAT' ( 'Tube ' , 12 , ' - ' , II , ' Stress quan.='I3,', lay.=',I3,', surf.='I3) 
WRITE !TIT2 ; 3000 SNTBW &NPRT SN3 SNLN SNLS 
TIT1.F.2 !TIT2 
# 

OVBEGI : OVGEOM 0,0,0, MSET=12 : OVCONT SN3, 0,10,0, MSET=12 
OVANNO 0 ! ANO : OVMESH MSET=12 : OVGLOB : OVEND 
CALL PLOT &NPL 

QUERY SN1 "DO YOU WISH ADDITIONAL TUBE PLY CONTOUR PLOTS? (Y/N)>> " 

IF SN1-SIYES ; 100 ; 95 ; 100 
; 95 GOTO ;80 
; 100 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING CONTOUR PLOTS OF MARGIN OF SAFETY 

# TUBE 

# 

SUB C0N6 SNPL SNTBW SNPRT 
DATA SIYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z U 
LET SX=1. 

LET SY=-1 . 

LET &Z=2 . 

CALL VIEW &X &Y &Z 
VIEWPT &X &Y &Z 
CALL LMNU 

QUERY &NS " INPUT SELECTION >> " 

IF ANS-1 ; 500 ; 510 ; 520 

# 

;500 SSET S,0,1 

; 101 FORMAT' ( 'Tube ' , 12 , ' - ' , II , ’ Stress M.S. - linear ana.') 

WRITE ! ST1 ; 101 &NTBW &NPRT 
TITLE2 ! ST1 
# 

GOTO ;999 

; 510 LET &MLS = %ICFL(BRCH . HED, 0 ,1,2) 

SSET S,0, &MLS 
# 

; 102 FORMAT' ('Tube ' , 12 , ' - ' , II , ' Stress M.S., nonl. ana., - final step') 

WRITE ! ST2 ; 102 &NTBW &NPRT 
TITLE?. ! ST2 
# 

GOTO ; 999 
; 520 CONTINUE 

; 2005 FORMAT' (/IX, 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WRITE 6 ; 2005 

QUERY SPAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) >> " 

CALL ST AT SPAIN SISEQ,SPAOT 
SSET S,0,SISEQ 
# 

; 2006 FORMAT' ( 'Tube ' , 12 , ' - ' , II , ' M.S. -Nonl. ana. - load fac. = ',F5.2) 

WRITE !TIT2 ;2006 SNTBW SNPRT SPAOT 
TITLF.2 !TIT2 
# 

; 999 CONTINUE 

DLABEL 1 'MARGIN OF SAFETY 
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FAIL ON 11 

SSHF,LL/MQMS = 1 11-1 MSET=12 

DFROMF, 11 MSH MSET=12 

CONT 1,0,10,0, MSET=12 

CALL PLOT &NPL 

; 60 CONTINUE 

FAIL OFF 11 

RETURN 

END 

t 

# SUBROUTINE FOR GENERATING MAX-MIN SUMMARY TABLES 

# FOR THE FACE SHEETS AND TUBE STIFFENERS AVG LAMINATE LOADS & STRAINS 

# 

SUB SUM1 &IF1 

DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ; 40 

; 20 OUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 
IF &N2-&IYES ; 40 ; 30 ; 40 

5 30 OUERY ! OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 ! OUT 
UNIT 8 

;40 CONTINUE 
# 

CALL LMNU 

OUERY &NS " INPUT SELECTION >> » 

IF &NS-1 ; 500 ;510 ; 520 
; 500 SSET S,0,1 

; 3000 FORMAT' (/IX, 'AVG LINE LOAD OR STRAIN - LINEAR SOLUTION') 

WRITE 6 ; 3000 
GOTO ; 999 

; 5 10 LET &MLS = %ICFL(BRCH. HED, 0, 1,2) 

SSET S,0,&MLS 

! 3001 FORMAT' (/IX, 'AVG LINE LOAD OR STRAIN - NONLINEAR - FINAL STEP') 

WRITE 6 ; 3000 
GOTO ; 009 
# 

; 520 CONTINUE 

? 2005 FORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR. 
WRITE A ; 2005 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL STAT SPAIN &ISEQ.&PAOT 
SSET S, 0, &ISEQ 

* 2006 FORMAT' (/IX' AVG LINE LOAD OR STRAIN - NONLINEAR - LOAD FACTOR ='F5.2 


WRITE 6 ; 2006 &PAOT 
# 

; 999 CONTINUE 
PRINT OFF, 0, LIST 
SLABEL 1 'N-X 

LINE LOAD 

SLABEL 

2 'N-Y 

LINE LOAD 

SLABEL 

3 'N-XY 

LINE LOAD 

SLABEL 

4 'M-X 

MOMENT LOAD 

SLABEL 

5 'M-Y 

MOMENT LOAD 

SLABEL 

11 'E-X AVG 

STRAIN 

SLABEL 

12 'E-Y AVG 

STRAIN 

SLABEL 

13 'E-XY AVG 

STRAIN 

DLABEL 

1 'N-X AVG 

LINE LOAD 

DLABEL 

2 'N-Y AVG 

LINE LOAD 

DLABEL 

3 'N-XY AVG 

LINE LOAD 

DLABEL 

11 'E-X AVG 

STRAIN 

DLABEL 

12 'E-Y AVG 

STRAIN 
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DLABEL 13 'E-XY AVG STRAIN 

TITLE2 'TOP FACE SHEET AVG LINE LOAD OR STRAIN AT INTEGRATION POINTS 
SPRINT 8, 1,2,3,4,5,11,12,13, 0, MSET=1 
IF 6.IF1 ; 50 ; 50 ; 60 

; 50 OUERY 6.ID "HIT RETURN TO CONTINUE!" 

; 60 TITLE2 'BOTTOM FACE SHEET AVG LINE LOAD OR STRAIN AT INTEGRATION POINTS 
SPRINT 8, 1,2,3,4,5,11,12,13, 0, MSET=3 
IF 6.TF1 ; 70 ; 70 ;80 

; 70 OUERY &ID "HIT RETURN TO CONTINUE!" 

# 

;80 TITLE2 'TUBE STIFFENER AVG LINE LOAD OR STRAIN AT INTEGRATION POINTS 
SPRINT 8, 1,2,3,4,5,11,12,13, 0, MSET=11 
# 

IF &IF1 ; 90 ; 90 ; 100 

; 90 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 100 CONTINUE 
RETURN 
END 

# 

# SUBROUTINE FOR MAKING SUMMARY TABLES OF PLY STRESS AND STRAIN 

# 

SUB SUM2 6.IF1 

DATA &IYES Y 
; 10 CONTINUE 
IF 6.IF1 ; 40 ; 20 ;40 

; 20 OUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)>> 

IF 6.N2 -6.IYES ; 40 ; 30 ;40 

; 30 QUERY ! OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET 6.1 FI = 1 
OPEN 8 ! OUT 
UNIT 8 
# 

; 40 CONTINUE 
CALL LMNU 

QUERY 6.NS " INPUT SELECTION >> " 

IF 6.NS-1 ; 500 ; 510 ; 520 
; 500 SSET S,0,1 
GOTO ;999 

; 510 LET 6.MLS = %ICFL(BRCH.HED,0, 1,2) 

SSET S,0,6.MLS 
GOTO ;999 
# 

; 520 CONTINUE 

; 2005 FORMAT' (/IX, ' PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/ 
WRITE 6 ; 2005 

QUERY 6.PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1.0) » " 

CALL ST AT 6.PAIN 6.ISEQ , 6.PA0T 


SSET S,0,&ISEQ 

# 

;999 CONTINUE 
PRINT OFF, 0, LIST 
SLABEL 1 'S-X PLY STRESS 

SLABEL 2 'S-Y PLY STRESS 

SLABEL 4 'S-XY PLY STRESS 

SLABEL 11 'E-X PLY STRAIN 

SLABEL 12 'E-Y PLY STRAIN 

SLABEL 14 'E-XY PLY STRAIN 

DLABEL 1 'S-X PLY STRESS 

DLAREL 2 'S-Y PLY STRESS 

DLABEL 4 'S-XY PLY STRESS 

DLABEL 11 'E-X PLY STRAIN 

DLABEL 12 'E-Y PLY STRAIN 
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D LABEL 14 'E-XY PLY STRAIN 

; 1.000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE GIVEN IN THE LOCAL PLY' 1 

;1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/! 
WRITE 6 ; 1000 wnuv-uuns; /) 

WRITE 6 ; 1001 
# 

TITLE2 'TOP FACE SHEET PLY STRESS SUMMARY AT ELEM QUAD POINTS 
PSHELL, 6, 1,2,4,11,12,14, 1,0,0, 1,0,1, MSET=1 
IF &IF1 ; 50 ; 50 ; 60 

;50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 TITLE2 'BOTTOM FACE SHEET PLY STRESS SUMMARY AT ELEM QUAD POINTS 
PSHELL 6, 1,2,4,11,12,14, 1,0,0, 1,0,1, MSET=3 
IF &IF1 ; 70 ; 70 ; 80 

;70 QUERY &ID "HIT RETURN TO CONTINUE!" 

# 


;80 TITLE2 'TUBE STIFFENER PLY STRESS SUMMARY AT ELEM QUAD POINTS 
PSHELL 6, 1,2,4,11,12,14, 1,0,0, 1,0,1, MSET=11 
# 

IF &IF1 ; 90 ; 90 ; 100 

: 90 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 100 CONTINUE 

RETURN 

END 


# 

# SUBROUTINE FOR MAKING SUMMARY TABLE OF MARGINS OF SAFETY 

# 

SUB SUM3 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ;40 

;20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» 
IF &N2-&I YES ; 40 ; 30 ;40 ' ; 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT >> " 
LET & I F 1 =1 

OPEN 8 ! OUT 
UNIT 8 
;40 CONTINUE 
# 


t! 


CALL LMNU 

OUERY &NS " INPUT SELECTION >> " 

IF &NS- 1 ; 500 ; 510 ;520 
; 500 SSET S,0, 1 
GOTO ; 999 

;510 LET &MLS = %ICFL(BRCH. HED,0, 1,2) 

SSET S,0, &MLS 
GOTO ; 999 
; 520 CONTINUE 
# 

( /lx > 'PROGRAM WILL FIND LOAD STEP CLOSEST TO SELECTED FACTOR.'/) 
WHITE 6 j 2005 7 

QUERY &PAIN " INPUT INTERMEDIATE LOAD FACTOR FRACTION (0 TO 1 0) >> " 

CALL STAT &PAIN &ISEQ,&PAOT * 

SSET S,0,&ISEQ 

;20O6 FORMAT' ('MARGIN OF SAFETY SUMMARY - NONLINEAR - LOAD FACTOR -'F5 2) 
WRITE 6 ; 2006 &PAOT J 

# 


;99Q CONTINUE 
FAIL ON 11 


PRINT OFF, 0, LIST 

TITLE2 'TOP FACE SHEET MARGIN OF SAFETY 
PSHELL 3, 11,12,13, 1,0,0, 1,1,1, MSET=1 
IF &IF1 ; 50 ; 50 ; 60 


SUMMARY AT ELEMENT QUADRATURE POINTS 
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• 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 TITLE2 'BOTTOM FACE SHEET MARGIN OF SAFETY SUM. AT 
PSHELL 3, 11,12,13, 1,0,0, 1,1,1, MSET=3 
IF f. T F 1 ; 70 ; 70 ; 80 

• 70 OUERY AID "HIT RETURN TO CONTINUE!" 

• 

;80 TITLE2 'TUBE STIFFENER MARGIN OF SAFETY SUMMARY AT 
PSHELL 3, 11,12,13, 1,0,0, 1,1,1, MSET=11 
# 

IF &IF1 ; 90 ; 90 ; 100 

; 90 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 100 CONTINUE 
FAIL OFF 11 
RETURN 
END 


ELEMENT QUADRATURE POINTS 


ELEMENT QUADRATURE POINTS 


# SUBROUTINE FOR TRANSFORMING METAPLOT FILES TO DEVICE PLOT FILES 

# 

SUB HC &NPL 
IF &NPL ; 100 ; 100 ; 10 
10 DEVICE OPEN <SHCD> 

1000 FORMAT' ( /IX, ' SAVED PLOTS ARE NOW BEING TRANSFORMED TO PLOT FILES ) 

1001 FORMAT' ( IX, ' PLEASE WAIT UNTIL COMPLETION IS INDICATED.') 

WRITE 6 ; 1000 

WRITE 6 ; 1001 
METAPLOT 

; 1000 FORMAT' ( /IX, ' PLOT FILE TRANSFORMATION COMPLETED'//) 

WRITE 6 ; 1000 
; 100 CONTINUE 
RETURN 
END 


Sub DEFL should be deleted when 
the post-processor for 


&XX 


this package 
the MOD 1 


is merged with 


# 

# 

# 

# 

SUB DEFL &NG 

DATA &IYES Y „ „„„„ 

1000 FORMAT' ( //IX, ' SELECT DESIRED DEFLECTION PLOT TYPE: ) 

FORMAT' (/15X, ' LINEAR ANALYSIS =0') 

FORMAT' (15X, 'BUCKLING ANALYSIS MODE SHAPE = 1') 

FORMAT' (15X, 'NONLINEAR ANALYSIS = 2'/) 

6 ; 1000: WRITE 6 ; 1001: WRITE 6 ; 1002: WRITE 6 ;1003 
&NS ,L INPUT SELECTION » " „„ , , 

FORMAT' (/IX, 'SELECT DEFLECTION MAGNIFICATION FACTOR TO BE USED:') 


1001 

1002 

1003 
WRITE 
QUERY 

1004 

1005 

1006 

1007 

1008 
WRITE 
WRITE 
QUERY 
IF &NM 


FORMAT' (/15X,' LOW (.10) 
FORMAT' (15X, 'MED (.20) 

FORMAT' (15X, 'HIGH (.50) 
FORMAT' (15X, 'USER SELECTABLE 
6 ; 1004: WRITE 6 ; 1005: WRITE ( 
6 ; 1008 

&NM ” INPUT SELECTION » " 

1 ; 10 ; 20 ;30 


O') 

= 1 ') 

= 2 ') 

= 3'/) 

; 1006: WRITE 


6 ; 1007 


10 LET &XX=.l 
GOTO ; 100 
20 LET &XX= . 2 
GOTO ; 100 

30 IF &NM-2 ; 100 ;40 ; 50 
40 LET &XX= . 5 
GOTO ; 100 
50 OUERY &XX 
100 CONTINUE 
IF &NS-1 ; 60 ; 70 


INPUT MAGNIFICATION FACTOR » 
; 80 
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; 60 LET &NG=3 
GOTO ; 200 
; 70 LET &NG=4 
GOTO ; 200 
;80 LET &NG=5 
; 200 CONTINUE 
RETURN 
END 

# 

SUB TUBT &NTBW &NPRT 

let &NTBW=1 
&NPRT=1 

mset 12 delete all 

mset 12 insert mset 9 

return 

end 

# 

SUB TUBB &NTBW &NPRT 
let &NTBW=1 
&NPRT=2 

define TBPN "bot tube wall " 
mset 12 delete all 

mset 12 insert mset 10 

return 
end 
# 

SUB TUBV &NTBW &NPRT 
mset 12 delete all 

;22 query &MTBV "Input the number of tubes in the panel: >> " 
URITE°6 MAT lO /3X ’ ,The tUbe Vet>S WU1 be plotted 0NE AT A TIME as you wish.'/) 

WRITF°6 MA ai /3X ’ ^ tHe the nUmber ° f tubes in the P anel is N >') 

URITE°6 MAT 12 /3X ’ ' thS nUmber ° f tube Webs in the P anel is NW=N+1. Now ...'/) 

le^ r &NW^lMTBU+l PUt ^ Wet> ID nUmber yOU Want t0 plot (1 t0 NW): » " 

IF &NTBW-&NW ;13 ; 13 ;22 
;13 continue 
mset 12 insert mset 2 
mset 12 mask mesh &NTBW 
let &NPRT=0 


return 

end 

# 

SUB MENX 

; 101 1 FORMAT' (9X,' 10) 
; 1012 FORMAT' (9X, 'll) 
; 1013 FORMAT' (9X, ' 12) 
# 

; 1014 FORMAT' (9X,' 13) 

; 1015 FORMAT' (9X, '14) 

; 1016 FORMAT' (9X, ' 15) 
# 

; 1017 FORMAT' (9X,' 16) 

; 1018 FORMAT' (9X,' 17) 

; 1019 FORMAT' (9X, '18) 
WRITE 6 ; 1011 
WRITE 6 ; 1012: WRITE 6 
WRITE 6 ; 1015: WRITE 6 
WRITE 6 ; 1018: WRITE 6 
RETURN 


SUMMARY TABLE OF AVG LAMINATE LOADS AND STRAINS') 
SUMMARY TABLE OF PLY STRESSES AND STRAINS') 
SUMMARY TABLE OF LAMINATE MARGINS OF SAFETY') 

CON. PLOT OF top TUBE AVG LAM. LOADS OR STRAINS') 
CON. PLOT OF top TUBE PLY STRESS OR STRAIN') 

CON. PLOT OF top TUBE MARGIN OF SAFETY') 

CON. PLOT OF bot. TUBE AVG LAM. LOADS OR STRAINS') 
CON. PLOT OF bot. TUBE PLY STRESS OR STRAIN') 

CON. PLOT OF bot. TUBE MARGIN OF SAFETY') 

; 1013: WRITE 6 ; 1014 
; 1016 : WRITE 6 ; 1017 
; 1019 
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END 


# SELECTION OF POST PROCESSING FUNCTIONS 
SUB MENU 

;1000 FORMAT' (//IX, 'MENU FOR PLOTS AND SUMMARY TABLES:'/) 

; 1001 FORMAT' (10X, '1) BASIC GEOMETRY PLOT') 

; 100,7 FORMAT' (10X, '2) GEOMETRY PLOT WITH LOAD VECTORS SHOWN') 

; 1003 FORMAT' (10X, '3) DEFLECTED GEOMETRY PLOT') 

# 

; 1005 FORMAT' (10X, '4) CONTOUR PLOT OF FACE SHEET AVG LAMINATE LOADS OR STRAINS') 

; 1006 FORMAT' ( 10X, ' 5) CONTOUR PLOT OF FACE SHEET PLY STRESS OR STRAIN') 

; 1007 FORMAT' ( 10X, ' 6) CONTOUR PLOT OF FACE SHEET MARGIN OF SAFETY') 

# 

; 1008 FORMAT' (10X, ' 7) CONTOUR PLOT OF TUBE web AVG LAM. LOADS OR STRAINS') 

; 1009 FORMAT' (10X, '8) CONTOUR PLOT OF TUBE web PLY STRESS OR STRAIN') 

; 1010 FORMAT' (10X, '9) CONTOUR PLOT OF TUBE web MARGIN OF SAFETY') 

; 1020 FORMAT' (9X, '99) TERMINATE POST PROCESSING SESSION'/) 

# 

WRITE 6 ; 1000: WRITE 6 ; 1001: WRITE 6 ; 1002: WRITE 6 ;1003 

WRITE 6 ; 1005: WRITE 6 ; 1006: WRITE 6 ; 1007 

WRITE 6 ; 1008: WRITE 6 ; 1009: WRITE 6 ; 1010 

CALL MENX 

WRITE 6 ; 1020 

RETURN 

END 

# 

| MENU SELECT. AND REDIRECT 'N &IMN=(1,2,3) & (4,5,6) 

SUB SEL2 &NPL &IMN 
IF &IMN-3 1 1 ; 50 

IF &TMN-2 1 ; 20 ; 30 

CALL GF.01 &NPL 
GOTO ; 500 
; 20 CALL GE02 &NPL 
GOTO ; 500 
# 

; 30 CALL DEFL &NG &XX 
IF &NG-4 ; 4 1 ; 42 ;43 
; 41 CALL GE03 &XX &NPL 
GOTO ; 500 

; 42 CALL GE04 &XX &NPL 
GOTO ; 500 

; 43 CALL GE05 &XX &NPL 
GOTO ; 500 ' 

# 

; 50 IF &IMN-5 1 ; 60 ; 80 

CALL CONI &NPL 
GOTO ; 500 
; 60 CALL C0N2 &NPL 
GOTO ; 500 
; 80 CALL C0N3 &NPL 
; 500 CONTINUE 
RETURN 
END 
# 

SUB SEL4 &IMN &NPL &NPRT 

it MENU SELECT. &IMN=(7,8,9) TO (10,11,12) 

IF &IMN-9 1 1 ; 150 

IF &IMN-8 1 ; 120 ; 140 

CALL TUBW &NTBW &NPRT . , 

CALL C0N4 &NPL &NTBW &NPRT 

GOTO ; 5 

; 120 CALL TUBW &NTBW &NPRT 


CALL CON 5 &NPL &NTBV &NPRT 
GOTO ; 5 

; 140 CALI, TUBV &NTBU &NPRT 
CALL C0N6 &NPL &NTBV &NPRT 
GOTO -5 

# 

; 150 IF &IMN-11 1 ; 170 ; 180 
CALL SUM1 &IF1 
GOTO ; 5 

; 170 CALL SUM2 &IF1 
GOTO ; 5 

; 180 CALL SUM3 &IF1 
; 5 CONTINUE 
RETURN 
END 

# 

# MENU SELECT. AND REDIR. &IMN= (13,14,15) (16,17,18) 
SUB SEL3 &IMN &NPL 

# mset 9 : all top tube walls 

# 


IF &IMN-15 1 1 ; 250 

IF J.IMN-14 1 ; 230 ; 240 


CALI, 

TUBT 


&NTBW 

&NPRT 

CALI, 

GOTO 

C0N4 

;5 

&NPL 

&NTBV 

&NPRT 

; 230 

CALL 

TUBT 

&NTBW 

&NPRT 

CALL 

GOTO 

CON5 

;5 

&NPL 

&NTBV 

&NPRT 

; 240 

CALL 

TUBT 

&NTBW 

&NPRT 

CALL 

GOTO 

# 

C0N6 

;5 

&NPL 

&NTBV 

&NPRT 


# mset 10 : all bottom tube walls 

* 

; 2 50 IF &IMN-17 1 ;430 ;440 


CALL, 

TUBB 


&NTBW 

&NPRT 

CALL 

GOTO 

C0N4 

;5 

&NPL 

&NTBV 

&NPRT 

; 430 

CALL 

TUBB 

&NTBV 

&NPRT 

CALL 

GOTO 

C0N5 

;5 

&NPL 

&NTBV 

&NPRT 

; 440 

CALL 

TUBB 

&NTBV 

&NPRT 

CALL 

C0N6 

&NPL 

&NTBV 

&NPRT 


GOTO ; 5 
; 5 CONTINUE 
RETURN 
END 


# 

# MENU SELECTION AND REDIRECTION 

SUB SF.L1 &IF1 &NPL 
;5 CONTINUE 
CALL MENU 

QUERY &IMN "INPUT NUMBER OF MENU ITEM DESIRED » 
If 


IF &IMN-99 1 
IF &IMN ; 5 
IF AIMN-19 1 
IF &IMN-12 1 
IF &IMN-6 1 
# 


200 

5 

5 

1 

1 


CALL SEL2 &NPL &IMN 
GOTO ; 5 


; 200 
1 

;5 
; 13 
; 12 

SEL 2 (1 TO 6) 


II 
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# SEL 3 (13 to 18) 

; 13 CALL SEL3 &IMN &NPL 

GOTO ; 5 

# SEL 4 (7 TO 12) 

; 12 CALL SEL4 &IMN &NPL 

GOTO ; 5 

; 200 CONTINUE 

RETURN 

END 

i 

# MAIN PROGRAM SUBROUTINE DRIVER 
CALL SEL1 &IF1 &NPL 

CALL HC &NPL 
CLOSE 8 

; 1000 FORMAT' (///IX, 'THIS COMPLETES THE POST PROCESSING SESSION.'/) 

; 1001 FORMAT' (IX, 'ANY HARD COPY PLOTS GENERATED HERE WILL RESIDE ON') 

; 1002 FORMAT' (IX, 'FILES IN THE WORKING DIRECTORY, USE NORMAL SUBMITTAL') 
; 1003 FORMAT' (IX, 'PROCEDURES TO ACTUALLY PRINT THEM.'//) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 
STOP 
SEND: 

$ ! End of PP.COM 


A-311 



A. 3. 4. 4 GEODESIC CURVED STIFFENED PANEL MODULE # 4 
POST PROCESSING DRIVER 

DIALAMAI IC 

$! 

$ ! THIS PROCEDURE IS DESIGNED TO PERFORM 
$ ! POST PROCESSING FOR MODELS GENERATED WITH 
$ ! DIALAMATIC, THE NASA ACT GENERIC MODEL PROGRAM 
$! 

$ ! VAX VERSION VI . 1 12-17-90 

$ ! AUTHOR: WAYNE M. BROWN LMSC 81-12 
$ ! PHONE: (408) 756-1137 
$ ! 

$ ! ################################################################### 

SSTART: 

$ W := WRITE SYS$OUTPUT 
$y "" 

$V " Advanced Composites Structural Concept" 

$V " and Materials Technologies" 

$W " Automated DIAL finite element analysis" 

$V " POST PROCESSING MODULE" 

$W "" 

$V " VAX VERSION 1.1" 

$W "" 

$W "" 

$W "" 

SINQUIRE DB "What is the name of the DIAL data base file?" 

$ASSIGN 'DB' FIL002 
$V "" 

$W "Which module was used to create this data base?" 

$W " 1) FLAT RECTANGULAR STRINGER STIFFENED PANEL" 

$W " 2) CURVED RECTANGULAR STRINGER STIFFENED PANEL" 

$W " 3) FLAT RECTANGULAR TUBULAR PANEL" 

$W " 4) CURVED GEODESICALLY STIFFENED RECTANGULAR PANEL" 

$W "" 

SINQUIRE MODULE " NUMBER?» " 

$W "" 

$IF MODULE . EQS. "1" THEN GOTO END 

$IF MODULE .EQS. "2" THEN GOTO END 

$IF MODULE .EQS. "3" THEN GOTO M0D4 

$G0T0 END 
$M0D4 : 

$ ! THE FOLLOWING COMMAND MAY NEED TO BE MODIFIED TO RUN 

$! THE DIAL SCOPE PROCESSOR IF THE EQUIVALENT NAME IS NOT 

$! ALREADY SETUP IN THE USER LOGIN.COM 

$! EXAMPLE: CHANGE TO $RUN DIAL$DIR: SCOPE 

$SCOPE 

START -1 

############################################################# 

# 

# THIS SCOPE PROCEDURE IS FOR MODULE 4 

# GEODESICALLY STIFFENED CURVED PANEL 

# 

############################################################# 

SET SYNTAX ON 

LET &IF1=0 
DATA &IYES Y 

5 1000 FORMAT' (IX, 'GIVE A SHORT NAME FOR THIS ANALYSIS') 

WRITE 6 ; 1000 

QUERY !NAME " PRECEDE MULTIPLE WORDS WITH APOSTROPHE » " 

QUERY !DEV "WHAT TYPE OF TERMINAL? (TEK, SEL,RETR, VT24)» " A-312 

DEFINE SHCD VERS 

QUERY &NHC "WILL YOU WANT TO PLOT HARD COPIES? (Y/N)» " 



IF &NHC-&IYES ; 30, ; 10, ; 30 

; 10 QUERY fHCD "INPUT HARD COPY DEVICE (VERS , QMS)>> " 

DEFINE SHCD ! HCD 

; 1000 FORMAT' (/IX, 'WHAT OUTPUT OPTION WOULD YOU LIKE?') 

; 1001 FORMAT' (IX,' 1) SCREEN PLOTS ONLY, NO HARD COPIES') 

•1002 FORMAT' (IX,' 2) ONLY HARD COPY PLOTS') 

j 1003 FORMAT' (IX,' 3) SCREEN PLOTS WITH HARD COPY PLOTS OPTIONAL') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 

QUERY &N1 "OPTION NUMBER?>> " 

IF &N1-2 ; 30, ; 40, ; 50 
; 30 DEVICE OPEN ! DEV 
LET &NPL=0 
GOTO ; 60 

;40 DEVICE OPEN !HCD 
LET &NPL=0 
GOTO ; 60 

; 50 DEVICE OPEN !DEV 
LET &NPL=1 
META OPEN SEL 
;60 CONTINUE 
TITLE ON 
TITLE1 !NAME 
$ 

# SUBROUTINE FOR CREATING METAFILE PLOTS ON DEMAND 

# 

SUB PLOT &NPL 
DATA &IYES Y 

IF &NPL ; 100 ; 100 ; 10 „ 

;10 QUERY &NX "DO YOU WISH A HARD COPY PLOT OF THE LAST PLOT?(Y/N)>> 

IF &NX-&IYES ; 100 ;20 ; 100 

; 20 METASAVE 

; 100 CONTINUE 

RETURN 

END 

# 

# BASIC GEOM PLOT SUBROUTINE 

# 

SUB GE01 &NPL 
DATA &IYES Y 

;1000 FORMAT' ( /IX, ' AFTER EACH PLOT IS GENERATED HIT A RETURN TO CONTINUE'/) 

WRITE 6 ; 1000 

TITLE2 'GEOMETRY PLOT 

LEGEND OFF 

ORIENT Z R 

VIEWPT -1. ,-.25, .3 

OVBEGI : SCREEN VIRT -.9, .9, -.9, .9: OVGEOM : OVMESH : OVEND 
CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT SHOWING LOAD VECTORS 

# 

SUB GEO 2 &NPL 
TITLE2 'LOAD PLOT 
LEGEND OFF 
ORIENT Z R 
VIEWPT -1. ,-.25, .3 
DSET UL 0 1 
VECT 010. 
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CALL PLOT &NPL 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED SHAPE 

# 

SUB GE03 &NPL 
DATA &IYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - LINEAR STRESS 
DSET D 0 1 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE?(Y/N)» " 

IF &NS-&IYES ; 130 ; 120 ;130 

; 120 CONTINUE 

ORIENT Z R 

VIEWPT -1 . »-.25, . 3 

OVBEG I : SCREEN VIRT -.9, .9, -.9, . 9 : OVGEOM : OVGEOM 1 1 .1 

OVMESH : OVGEOM 2 : LATT TYPE 2:0VMESH:0VEND 

CALL PLOT &NPL 

LATT TYPE 0 

GOTO ; 140 

; 130 CONTINUE 

OVBEGI : SCREEN VIRT - . 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 ,1:0VMESH:0VEND 
CALL PLOT &NPL 
; 140 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR GEOMETRY PLOT OF DEFLECTED BUCKLED SHAPE 

# 

SUB GE04 &NPL 
DATA &IYES Y 
LEGEND OFF 

TITLE2 'DEFLECTED GEOMETRY PLOT - BIFURCATION BUCKLING 

DSET BUCK 0 1 

ORIENT Z R 

VIEWPT -1. ,-.25, .3 

QUERY &NS " WOULD YOU LIKE TO SHOW THE UNDEFLECTED SHAPE? (Y/N)>> " 
IF &NS-&IYES ; 170 ; 160 ; 170 
; 160 CONTINUE 

OVBEGI : SCREEN VIRT -.9, .9, -.9, . 9:0VGE0M: OVGEOM 1 1 .1 

OVMESH: OVGEOM 2: LATT TYPE 2 : OVMESH :OVEND 

CALL PLOT '&NPL 

LATT TYPE 0 

GOTO ; 180 

; 170 CONTINUE 

OVBEGI : SCREEN VIRT 9 , . 9 , - . 9 , . 9 : OVGEOM : OVGEOM 1 1 . 1 : OVMESH : OVEND 

CALL PLOT &NPL 

; 180 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN AVG LOADS AND STRAIN 

n 

SUB CONI &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEWPT -1. ,-.5,0 
SSET S,0,1 

TITLE2 'SKIN PANEL AVG LINE LOAD OR STRAIN 
DLABEL 1 'N-X AVG LINE LOAD 
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DLABEL 2 'N-Y AVG 

LINE LOAD 




DLABEL 3 'N-XY AVG 

LINE LOAD 




DLABEL 4 'M-X AVG 

LINE MOMENT 




DLABEL 5 'M-Y AVG 

LINE MOMENT 




DLABEL 11 'E-X AVG 

STRAIN 




DLABEL 12 'E-Y AVG 

STRAIN 




DLABEL 13 'E-XY AVG 

STRAIN 




; 25 CONTINUE 





; 1000 FORMAT' (/IX, 'QUANTITY MENU: (LINE 

LOAD) 

N-X = 1, 

N-Y = 2, N-XY =3') 

; 1001 FORMAT' (IX, ' 

(LINE 

MOMENT) 

M-X = 4, 

M-Y = 5') 

; 1002 FORMAT' (IX, ' 

(AVG 

STRAIN) 

E-X = 11, 

E-Y = 12, E-XY = 13' ) 

; 1003 FORMAT' (IX, ' 

> INPUT 

99 TO DISCONTINUE 

PLOTTING' ) 

VRITE 6 ; 1000 





WRITE 6 ; 1001 





WRITE 6 ; 1002 





WRITE 6 ; 1003 






QUERY &N3 "INPUT DESIRED QUANTITY NUMBER >> " 

IF &N3-99 ; 30 ;40 ; 30 

; 30 DFROMS &N3,6.N3,MSH,0,MSET=6 

CONT &N3,0, 15,0,MSET=6 

CALL PLOT &NPL 

GOTO ; 25 

;40 CONTINUE 

RETURN 

END 


# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN MARGIN OF SAFETY 

# 

SUB CON 3 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEWPT -1. ,-.5,0 
SSET S,0,1 

TITLE2 'SKIN PANEL MARGIN OF SAFETY AT ELEM QUAD POINTS 
DLABEL 1 'MARGIN OF SAFETY 
FAIL ON 11 

SSHELL/MQMS=1 1 1 -1 MSET=6 

DFROME 1 1 MSH MSET=6 

CONT 1,0, 15,0,MSET=6 

CALL PLOT &NPL 

; 60 CONTINUE 

FAIL OFF 11 

RETURN 

END 

# 

# SUBROUTINE FOR CONTOUR PLOTS OF SKIN PLY STRESS AND STRAIN 

# 

SUB CON 2 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEUPT -1. ,-.5,0 
SSET S,0,1 


DLABEL 1 'S-X PLY STRESS 
DLABEL 2 ' S-Y PLY STRESS 
DLABEL 4 ' S-XY PLY STRESS 
DLABEL 11 'E-X PLY STRAIN 
DLABEL 12 'E-Y PLY STRAIN 
DLABEL 14 'E-XY PLY STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 
; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 
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WRITE 6 ; 1000 
WRITE 6 ; 1001 
; 80 CONTINUE 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED » " 

QUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0, T0P=1 » " 
;1000 FORMAT' (/IX, 'QUANTITY MENU: (LAYER STRESS) S-X = 1 S-Y = 2 
;1001 FORMAT' (IX, ' (LAYER STRAIN) E-X = 11, E-Y = 12* 

’ 1002 FORMAT' (IX, ' — > INPUT 99 TO DISCONTINUE PLOTTING')’ 

WRITE 6 ; 1000 ’ 

WRITE 6 ; 1001 
WRITE 6 ; 1002 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 90 ; 100 ; 90 
;90 SSET S,0,1 


SSHELL 1 &NLN &NLS MSET=6 
DFROMS &N3 , &N3 , MSH , 0 , MSET=6 

> 2000 FORMAT' (' SKIN STRESS QUANTITY = '13,', LAYER 
WRITE !TIT2 ;2000 &N3 &NLN &NLS 
TITLE2 !TIT2 


'13,', SURFACE 


S-XY - 4') 
E-XY =14') 


= '13) 


CONT &N3,0, 15,0,MSET=6 
CALL PLOT &NPL 

QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS 7 (Y/N)>> " 

IF &N1-&IYES ; 100 ;95 ; 100 

; 95 GOTO ;80 

; 100 CONTINUE 

RETURN 

END 

# 

# 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF AVG LOADS & STRAIN 

# STIFFENERS 

# 

* 


SUB C0N4 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEWPT -1. ,-1. ,-.5, 

SSET S,0,1 

TITLE2 'STIFFENER AVG LINE LOAD OR STRAIN 
DLABEL 1 'N-X AVG LINE LOAD 

DLABEL 2 'N-Y AVG LINE LOAD 

DLABEL 3 'N-XY AVG LINE LOAD 

DLABEL 11 'E-X AVG STRAIN 

DLABEL 12 'E-Y AVG STRAIN 

DLABEL 13 'E-XY AVG STRAIN 

25 CONTINUE 

1000 FORMAT' (/IX, 'QUANTITY MENU: (LINE LOAD) N-X = 1. N-Y = 2 N-X1 

1001 FORMAT' (IX, ' (LINE MOMENT) M-X = 4, M-Y = 5') 

}JJJ2 FORMAT' (IX, ' (AVG STRAIN) E-X = 11, E-Y = 12, E-X) 

WRITE 6°^1000 (1X ’ ' ~ _> INPUT " T ° DISC0NTINUE PLOTTING') 

WRITE 6 -1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 30 ;40 ; 30 

;30 DFROMS &N3,&N3,MSH,0,MSET=5 

CONT &N3,0, 15,0,MSET=5 

CALL PLOT &NPL 

GOTO ; 25 

;40 CONTINUE 


3') 

13') 
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RETURN 

END 

» 

# SUBROUTINE TO CREATE CONTOUR PLOTS OF LAYER STRESS & STRAIN 

# STIFFENERS 

# 

SUB CON5 &NPL 
DATA 6. 1 YES Y 


; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEWPT -1. ,-l. ,-.5, 
SSET S,0,1 
; 70 CONTINUE 
DLABEL 1 'S-X PLY 

STRESS 

DLABEL 2 'S-Y PLY 

STRESS 

DLABEL 4 'S-XY PLY 

STRESS 

DLABEL 11 'E-X PLY 

STRAIN 

DLABEL 12 'E-Y PLY 

STRAIN 

DLABEL 14 'E-XY PLY 

STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE PLOTTED OUT IN THE LOCAL PLY') 

; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
;80 CONTINUE 

QUERY &NLN "INPUT LAYER NUMBER TO BE PLOTTED >> " 

QUERY &NLS "INPUT LAYER SURFACE: B0TT0M=-1, MIDDLE=0, T0P=1 » " 

; 1000 FORMAT' (/IX, 'QUANTITY MENU: (LAYER STRESS) S-X = 1, S-Y = 2, S-XY = 4') 

; 1001 FORMAT' (IX, ' (LAYER STRAIN) E-X = 11, E-Y = 12, E-XY =14') 

; 1002 FORMAT' (IX, ' --> INPUT 99 TO DISCONTINUE PLOTTING') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 

QUERY &N3 "INPUT DESIRED QUANTITY NUMBER » " 

IF &N3-99 ; 90 ; 100 ; 90 
;90 SSET S,0,1 
SSHELL 1 &NLN &NLS MSET=5 
DFROMS &N3,&N3,MSH,0,MSET=5 

; 2000 FORMAT' ('STRINGER STRESS QUANTITY = '13,', LAYER = '13,', SURFACE = '13) 

WRITE !TIT2 ; 2000 &N3 &NLN &NLS 

TITLE? !TIT2 

CONT AN3,0, 15,0,MSET=5 

CALL PLOT &NPL 

QUERY &N1 "DO YOU WISH ADDITIONAL PLY CONTOUR PLOTS?(Y/N)» " 

IF &N1-&I YES ; 100 ; 95 ;100 

; 95 GOTO ;80 

; 100 CONTINUE 

RETURN 

END 

# 

# SUBROUTINE FOR MAKING CONTOUR PLOTS OF MARGIN OF SAFETY 

# STIFFENERS 

# 

SUB C0N6 &NPL 
DATA &IYES Y 
; 10 LEGEND ON RIGHT 
ORIENT Z R 
VIEWPT -1. ,-1. ,-,5, 

SSET S,0,1 

TITLE2 'STIFFENER AML MARGIN OF SAFETY 

DLABEL 1 'MARGIN OF SAFETY A-31 7 

FAIL ON 11 

SSHELL/MQMS=1 11-1 MSET=5 



DFROME 1 1 MSH MSET=5 

CONT 1,0, 15,0, MSET=5 

CALL PLOT &NPL 

; 60 CONTINUE 

FAIL OFF 11 

RETURN 

END 


# 

# SUBROUTINE FOR GENERATING MAX-MIN SUMMARY TABLES 

# FOR THE SKIN PANEL AND STIFFENERS AVG LAMINATE LOADS & STRAINS 

# 


SUB SUM1 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ;40 

* 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» 
IF &N2-&IYES ; 40 ; 30 ;40 

5 30 QUERY ! OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 
LET &IF1=1 
OPEN 8 ! OUT 
UNIT 8 


;40 CONTINUE 
SSET S,0,1 
PRINT OFF, 0, LIST 
TITLE2 'SKIN PANEL AVG 
SLABEL 1 'N-X 
SLABEL 2 'N-Y 
SLABEL 3 'N-XY 
SLABEL 4 'M-X 
SLABEL 5 'M-Y 
SLABEL 11 'E-X AVG 
SLABEL 12 'E-Y AVG 
SLABEL 13 'E-XY AVG 
DLABEL 1 'N-X AVG 
D LABEL 2 'N-Y AVG 
DLABEL 3 'N-XY AVG 
DLABEL 11 'E-X AVG 
DLABEL 12 'E-Y AVG 
DLABEL 13 'E-XY AVG 
SPRINT 8,1,2,3,4,5,11, 
IF &IF1 ; 50 ; 50 ;60 


LINE LOAD OR STRAIN 
LINE LOAD 
LINE LOAD 
LINE LOAD 
MOMENT LOAD 
MOMENT LOAD 
STRAIN 
STRAIN 
STRAIN 
LINE LOAD 
LINE LOAD 
LINE LOAD 
STRAIN 
STRAIN 
STRAIN 

12 , 13 ,0,MSET=6 


AT INTEGRATION POINTS 


;50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 TITLE2’ ' STIFFENER AVG LINE LOAD OR STRAIN AT INTEGRATION POINTS 
SPRINT 8,1,2,3,4,5,11,12, 13 , 0, MSET=5 
IF &IF1 ; 70 ; 70 ;80 


; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

;80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLES OF PLY STRESS AND STRAIN 

# 


II 


SUB SUM2 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ;40 

;20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N1» " 
IF &N2-&IYES ;40 ; 30 ;40 ’ 1 

;30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &IF1=1 
OPEN 8 !OUT 
UNIT 8 
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; 40 CONTINUE 
SSET S,0,1 
PRINT OFF, 0, LIST 


SLABEL 

1 'S-X PLY 

STRESS 

SLABEL 

2 'S-Y PLY 

STRESS 

SLABEL 

4 'S-XY PLY 

STRESS 

SLABEL 

11 'E-X PLY 

STRAIN 

SLABEL 

12 'E-Y PLY 

STRAIN 

SLABEL 

14 'E-XY PLY 

STRAIN 

DLABEL 

1 'S-X PLY 

STRESS 

DLABEL 

2 'S-Y PLY 

STRESS 

DLABEL 

4 'S-XY PLY 

STRESS 

DLABEL 

11 'E-X PLY 

STRAIN 

DLABEL 

12 'E-Y PLY 

STRAIN 

DLABEL 

14 'E-XY PLY 

STRAIN 


; 1000 FORMAT' (/IX, 'LAYER OR PLY STRESSES ARE GIVEN IN THE LOCAL PLY') 

; 1001 FORMAT' (IX, ' MATERIAL SYSTEM DIRECTIONS (FIBER DIRECTIONS)'/) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
SSET S,0,1 

TITLE2 'SKIN PANEL PLY STRESS SUMMARY AT ELEM QUAD POINTS 
PSHELL 6,1,2,4,11,12, 14, 1,0, 0,1, 0,1, MSET=6 
IF &IF1 ;50 ; 50 ; 60 

;50 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 60 TITLE2 'STIFFENER PLY STRESS SUMMARY AT ELEM QUAD POINTS 
PSHELL 6,1,2,4,11,12,14,1,0,0,1,0,1, MSET=5 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

; 80 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MAKING SUMMARY TABLE OF MARGINS OF SAFETY 

# 

SUB SUM 3 &IF1 
DATA &IYES Y 
; 10 CONTINUE 
IF &IF1 ; 40 ; 20 ; 40 

; 20 QUERY &N2 "DO YOU WISH TO REDIRECTED THE PRINTOUT TO A FILE?(Y/N)» " 

IF &N2-&IYES ; 40 ; 30 ; 40 

; 30 QUERY !OUT "INPUT FILE NAME FOR REDIRECTION OF PRINTED OUTPUT » " 

LET &TF1=1 
OPEN ft ! OUT 
UNIT 8 

;40 CONTINUE 
SSET S,0,1 
FAIL ON 11 
PRINT OFF, 0, LIST 

TITLE2 'SKIN PANEL MARGIN OF SAFETY SUMMARY AT ELEMENT QUADRATURE POINTS 
PSHELL 1,1, 0,0, 0,1, 1,1, MSET=5 
IF &IF1 ; 50 ; 50 ; 60 

; 50 QUERY &ID "HIT RETURN TO CONTINUE!" 

;60 TITLE2 'STRINGER MARGIN OF SAFETY SUMMARY AT ELEMENT QUADRATURE POINTS 
PSHELL 1,1, 0,0, 0,1, 1,1, MSET=6 
IF &IF1 ; 70 ; 70 ; 80 

; 70 QUERY &ID "HIT RETURN TO CONTINUE!" 

;80 CONTINUE 
FAIL OFF 11 
RETURN 

END A-319 

# 

# SUBROUTINE FOR TRANSFORMING METAPLOT FILES TO DEVICE PLOT FILES 



# 

SUB HC &NPL 

IF &NPL ; 100 ; 100 ; 10 

; 10 DEVICE OPEN <SHCD> 

;1000 FORMAT' (/IX, 'SAVED PLOTS ARE NOV BEING TRANSFORMED TO PLOT FILES') 
; 1001 FORMAT' (IX, ' PLEASE WAIT UNTIL COMPLETION IS INDICATED.') 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
METAPLOT 

; 1000 FORMAT' (/IX, 'PLOT FILE TRANSFORMATION COMPLETED'//) 

WRITE 6 ; 1000 
; 100 CONTINUE 
RETURN 
END 


THE FOLLOWING PROCEDURE DISPLAYS A MENU FOR SELECTION OF 
POST PROCESSING FUNCTIONS 


# 

# 

# 

# 

# 

SUB MENU 

1000 FORMAT' (//IX, 'MENU FOR PLOTS AND SUMMARY TABLES:'/) 

FORMAT' (10X, ' 1) BASIC GEOMETRY PLOT') 

GEOMETRY PLOT WITH LOAD VECTORS SHOWN') 
DEFLECTED GEOMETRY PLOT - LINEAR ANALYSIS' 
DEFLECTED GEOMETRY PLOT - BUCKLING MODE') 
CONTOUR PLOT OF SKIN AVG LAMINATE LOADS OR 


1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 
WRITE 
WRITE 
WRITE 
WRITE 
RETURN 
END 

# 


FORMAT' (10X, '2) 
FORMAT' (10X, '3) 
FORMAT' (10X, '4) 
FORMAT' (10X, '5) 
FORMAT' (10X, '6) 
FORMAT' (10X, '7) 
FORMAT' (10X, '8) 
FORMAT' (10X, '9) 
FORMAT' (9X, '10) 
FORMAT' (9X, 'll) 
FORMAT' (9X,' 12) 
FORMAT' (9X, '13) 
FORMAT' (9X, '99) 
6 ; 1000: WRITE 6 
6 ; 1004: WRITE 6 
6 ; 1008: WRITE 6 
6 ; 1012: WRITE 6 


) 


CONTOUR PLOT 
CONTOUR PLOT 
CONTOUR PLOT 
CONTOUR PLOT 
CONTOUR PLOT 
SUMMARY TABLE 
SUMMARY TABLE 
SUMMARY TABLE 
TERMINATE POST 
; 1001: WRITE 6 
; 1005: WRITE 6 
; 1009: WRITE 6 
; 1013:VRITE 6 


STRAINS 9 ) 

OF SKIN PLY STRESS OR STRAIN') 

OF SKIN MARGIN OF SAFETY') 

OF STIFF. AVG LAMINATE LOADS OR STRAINS' 
OF STIFF. PLY STRESS OR STRAIN') 

OF STIFF. MARGIN OF SAFETY') 

OF AVG LAMINATE LOADS AND STRAINS') 


PLY STRESSES AND STRAINS') 
LAMINATE MARGINS OF SAFETY'/) 
SESSION'/) 


OF 
OF 

PROCESSING 
; 1002: WRITE 
; 1006: WRITE 
; 1010: WRITE 
; 1014 


1003 

1007 

1011 


#MENU SELECTION SUBROUTINE 
# 


SUB SEL2 &NPL &IMN 
IF &IMN-2 ; 10 ; 20 ; 30 
; 10 CALL GE01 &NPL 
GOTO ; 500 
; 20 CALL GE02 &NPL 
GOTO ; 500 

;30 IF &IMN-4 ; 40 ; 50 ; 60 
;40 CALL GE03 &NPL 
GOTO ; 500 
; 50 CALL GE04 &NPL 
GOTO ; 500 

; 60 IF &IMN-6 ; 70 ; 80 ; 90 
; 70 CALL CONI &NPL 
GOTO ; 500 
;80 CALL C0N2 &NPL 
GOTO ; 500 

;90 IF &IMN-8 ; 100 ; 110 ;500 
; 100 CALL C0N3 &NPL 




A-320 



GOTO ; 500 

; 1 10 CALL C0N4 &NPL 
GOTO ; 500 
; 500 CONTINUE 
RETURN 
END 
# 

# SUBROUTINE FOR MENU SELECTION AND REDIRECTION 

# 

SUB SEL1 &IF1 &NPL 
; 5 CONTINUE 
CALL MENU 

QUERY &IMN "INPUT NUMBER OF MENU ITEM DESIRED » " 

CALL SEL2 &NPL &IMN 
IF &IMN-8 ; 5 ;5 ; 120 
; 120 IF &IMN-10 ; 130 j 140 ; 150 
; 130 CALL C0N5 &NPL 
GOTO ;5 

; 140 CALL C0N6 &NPL 
GOTO ; 5 

; 150 IF &IMN-12 ; 160 ; 170 ; 180 
; 160 CALL SUM1 &IF1 
GOTO ; 5 

; 170 CALL SUM2 &IF1 
GOTO ; 5 

; 180 IF &IMN-14 ; 190 ; 200 ;200 

; 190 CALL SUM3 &IF1 

;GOTO ; 5 

;200 CONTINUE 

RETURN 

END 

# 

# MAIN PROGRAM SUBROUTINE DRIVER 

« 

CALL SEL1 &IF1 &NPL 
CALL HC &NPL 
CLOSE 8 

; 1000 FORMAT' (///IX, 'THIS COMPLETES THE POST PROCESSING SESSION.'/) 

; 1001 FORMAT' (IX, 'ANY HARD COPY PLOTS GENERATED HERE WILL RESIDE ON') 
j 1002 FORMAT' (IX, 'FILES IN THE WORKING DIRECTORY, USE NORMAL SUBMITTAL') 
; 1003 FORMAT' (IX, 'PROCEDURES TO ACTUALLY PRINT THEM.'//) 

WRITE 6 ; 1000 
WRITE 6 ; 1001 
WRITE 6 ; 1002 
WRITE 6 ; 1003 
STOP 
SEND: 
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generated and used to evaluate specific design. 
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